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ABSTRACT 



This thesis explores the requirements necessary to develop a graphics support 
library for the Ada programming language hosted on the Zenith H Z-100 
microcomputer. A prototype graphics library is implemented in S0S6 assembly 
language embedded in an Ada package. The library operates with JANUS Ada under 
the CP'M-S6 operating system. 

Listings of library routines developed are provided as well as a user's guide and 
demonstration programs. Potential areas for further investigation and development are 
suggested. 

It is concluded that an Ada graphics library for microcomputers is feasible and 
practical. 



THESIS DISCLAIMER 



The reader is cautioned that computer programs developed in this research may 
not have been exercised for all cases of interest. While even.' effort has been made, 
within the time available, to ensure that the programs are free of computational and 
logic errors, they cannot be considered validated. Any application of these programs 
without additional verification is at the risk of the user. 

Some terms used in this thesis are registered trademarks of commercial products. 
Rather than attempt to cite each occurrence of a trademark, all trademarks appearing 
in this thesis will be listed below, following the organization holding the trademark: 

1. United States Government (Ada Joint Program Office) 
Ada 

2. Intel Corporation 
Intel 

3. Digital Research Corporation 
CP/M 

CP/M-86 

4. Microsoft Corporation 
MS-DOS 

5. Zenith Data Systems Corporation 
Zenith 

H/Z-100 



4 



TABLE OF CONTENTS 



I. 



II. 



INTRODUCTION 9 

A. BACKGROUND 9 

B. PURPOSE 10 

C. THESIS ORGANIZATION 11 



ALGORITHMS 

A. H Z-100 ARCHITECTURE 

B. JANUS ADA 

C. GRAPHICS ALGORITHMS 

1. Clear Screen (CLS) .... 

2. Color Selection 

3. Video Ram Addressing . 

4. Pixel Display 

5. Line Drawing 

6. Circle Drawing 

7. Color Testing 

S. Area/Polygon Filling . . . 
9. Cursor Control 



12 

12 

15 

17 

17 

IS 

IS 

19 

19 



25 

26 



III. PERFORMANCE AND EVALUATION 2S 

A. DEMONSTRATION PROGRAMS 2S 

1. Program AGTEST1 28 

2. Program AGTEST2 2S 

3. Program AGTEST3 28 

4. Program AGTEST4 2S 

B. ADA GRAPHICS LIBRARY LIMITATIONS 2S 

C. H Z-100 HARDWARE LIMITATION'S 29 

D. TIMING MEASUREMENTS 29 



5 



IV. 



RECOMMENDATIONS FOR FUTURE DEVELOPMENT 



V. CONCLUSION 



3 1 



APPENDIX A: USER'S GUIDE 33 

1. INTRODUCTION 33 

2. CLEARING THE SCREEN 33 

3. COLOR SELECTION 34 

4. COLOR TESTING 34 

5. PIXEL SETTING/RESETTING 35 

6. LINE DRAWING 35 

7. CIRCLE DRAWING 35 

S. AREA POLYGON FILLING 36 

APPENDIX B: GRAPHICS TEST 1 3S 

APPENDIX C: GRAPHICS TEST 2 39 

APPENDIX D: GRAPHICS TEST 3 40 

APPENDIX E: GRAPHICS TEST 4 41 

APPENDIX F: SPECIFICATION PACKAGE 42 

APPENDIX G: ASSEMBLY CODE LISTING 43 



LIST OF REFERENCES 



64 



BIBLIOGRAPHY 65 

INITIAL DISTRIBUTION LIST 66 



6 






LIST OF TABLES 



1. COLOR PLANE ADDRESSES 15 

2. COLOR TABLE 16 

COLOR CONTROL IS 

4. PERFORMANCE RESULTS 30 

5. COLOR CODES 34 



7 



r i r i 



LIST OF FIGURES 



2.1 H 'Z-100 Block Diagram 1 

2.2 Display Matrix 14 

2.3 Parameter Passing 17 

.4 Bresenham's Circle Algorithm 24 

.5 Pascal Boundary-Fill Procedure 25 



S 



rO 



I. INTRODUCTION 



A. BACKGROUND 

The Naval Postgraduate School (NPS) utilizes approximately fifty Zenith 
H Z- 100 microcomputers in the microcomputer laboratories of the Computer Science 
Department. There were many reasons for choosing this particular computer, foremost 
of which is the hardware architecture [Ref. 1] and the availability of support software. 
The H Z- 100's central processing unit (CPU) includes an INTEL 8085 8-bit processor 
and an INTEL 8088 16-bit processor. The simple architecture and instruction set of 
the 8085 processor supports the popular CP M operating system and is compatible 
with 8080 code. The more complex architecture of the 8088 processor is compatible 
with 8086 code and includes more internal registers (some usable as either 8 or 16-bit), 
extended addressing modes, and a more complex memory management scheme using 
segment registers. The 8088 processor supports the more advanced CP, M-86 and MS- 
DOS operating systems. 

An important feature of the H/Z-100 is its display versatility. The basic H/Z-100 
includes an internal monochrome display and allows the addition of an additional 
external color monitor. The color monitor is of medium resolution with 640 horizontal 
and 225 vertical pixels (640 X 512 in the interlace mode). Three 64k pages of video 
RAM memory provide eight colors (or eight intensity levels with a monochrome 
monitor). 

A primary function of the microcomputer laboratory is to support computer 
science courses providing special emphasis on tactical computer applications. 
According to Department of Defense policy [Ref. 2], "The Ada programming language 
shall become the single, common computer programming language for defense mission- 
critical applications. Effective 1 January 1984 for programs entering full-scale 
engineering development, Ada shall be the programming language." To assist in 
meeting this requirement. NPS provides courses which include the use of Ada in the 
development of tactical program applications programs. Most of these programs are 
run on the LI Z-100 computers using the JANUS Ada compiler. To date, several 
validated Ada compilers have been approved for specific computer systems, with many 
more expected to be approved in the near future. However, as Patrice Wagner points 
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out [Ref. 3] there has been little measurable response within the computer graphics 
industry. An improvement in this area can be expected with the acceptance of the Ada 
Binding to the Graphical Kernel System (GKS) [Ref. 4] by the American National 
Standards Institute (ANSI) X3H3 committee on graphics standards. However, we 
cannot sit back and wait for industry to provide all the tools necessary to conduct Ada 
graphics education and research. Widespread use of Ada can be expected in the near 
future and with that use there will be increasing requirements for individuals with Ada 
graphics knowledge. The NPS has an obligation to assist the Navy in meeting those 
educational requirements. 

B. PURPOSE 

It is the intent of this thesis to develop an Ada language graphics programming 
capability by developing a low level design and partial implementation of an Ada 
graphics library which can be expanded to include a subset of the Ada language 
binding to the GKS. Functions to be included will be those primitives necessary for: 

• clearing the screen 

® setting a pixel 

• drawing a line 

• selecting a color 

• filling polygons 

• cursor control 

These basic primitives will be implemented using S0S6 assembly language 
embedded in an Ada package. The CP M-S6 operating system and the JANUS Ada 
compiler will be used for this implementation. 

It is expected that the primary use for this software will be in courses which 
emphasize tactical applications of computers. It is becoming more and more common 
to find graphical displays in tactical systems. The ability of computers to provide 
graphical displays which aid in tactical decision making is widely recognized and the list 
of tactical applications utilizing graphical displays can be expected to grow as faster 
and better graphics displays are developed. 

It is anticipated that this software will assist in gaining an insight into the 
feasibility of developing a GKS implementation for Ada on a microcomputer. As an 
immediate benefit, it will aid in the development of Ada graphics programs on the 
H Z-100 computer. 



10 



C. THESIS ORGANIZATION 

Chapter II begins with a brief overview of the architecture of the II Z-100 
computer. The overview is presented to assist the reader in understanding the selection 
and implementation of the graphics algorithms. Next there is a brief discussion 
explaining the use of the JANUS. Ada compiler and CP, M-S6 operating system. 
Included in this discussion is a description of parameter passing procedures in 
JANUS Ada. The remainder of Chapter II is devoted to providing a detailed 
description of the implemented graphics routines. 

Chapter III provides a description of the test/demonstration programs listed in 
Appendices B-E. Also included in this chapter is an evaluation of the H, Z-100 color 
graphics capability. Shortcomings and system hardware performance are discussed. 

Chapter IV includes recommendations for further research and program 
development using the H Z-100 computer. 

Chapter V is the final chapter and includes the conclusion and general comments 
pertaining to the use of microcomputers and Ada in graphics programming. 

Appendix A is a user's guide which describes the procedures available in the Ada 
graphics library. Also included are some programming tips on usage of the library 
procedures and sample procedure calls are provided as examples. 

Appendices B-E are program listings of demonstration programs written in Ada. 
They are provided to demonstrate the use of the Ada graphics library as well as serving 
as a supplement to the user's guide. 

Appendix F is a listing of the specification package for the Ada graphics library. 
The specification package defines the formats of all externally callable library 
procedures. 

Appendix G is the assembly code listing of all procedures contained in the Ada 
graphics library. 
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II. ALGORITHMS 



A. H/Z- 100 ARCHITECTURE 

The following overview of the H Z-100 architecture is presented in order to 
clarify the method of implementation of specific algorithms. Figure 2.1 is a block 
diagram of the basic architecture of the H Z-100 computer. 

NPS's H Z-100 computers are in the process of being upgraded to include the 
Model ZVM-1330 color monitor, 192k of on-board cpu memory and three 64k pages 
of video RAM. 

The display screen is formed by a matrix of 640 horizontal and 223 vertical 
pixels. Each pixel is mapped to a bit in each of the three color planes (red, green, and 
blue) in video RAM. Display management is provided by the video processor's CRT 
controller (CRT-C). 

The CRT-C has two modes of operation: the character based mode and the pixel 
based mode. In the character based mode, the CRT-C is programmed for nine scan 
lines per character, 80 characters per line and 25 lines per screen. In the pixel based 
mode, the CRT-C is normally programmed to control a matrix of 640 X 225 pixels. 

Mapping of video RAM to the screen is performed by the CRT-C to allow 
scrolling of the screen and management of displayable nondisplayable data. Mapping 
of the display to physical addresses in video RAM is organized such that 128 
(numbered 0-127) consecutive bytes are allowed for each scan line. However, only 80 
of the 128 bytes are used to control display of the 640 pixels per scan line. Bytes 
SO- 127 of each line must not be used or erroneous data may be displayed. 
Additionally, the 225 displayable scan lines may be considered to be in sets of 16 lines 
of which only the first nine lines of each set are displayable. 

When operating in the character based mode, the CRT-C is programmed to map 
around the non-displayable video RAM. However, in the pixel based mode, it is 
necessary to incorporate a mapping algorithm into graphics routines. This means that 
of the 400 scan lines, only 225 are displayable. In addition, the CRT-C is normally 
programmed so that the bottom character row (9 scan lines) is zeroed during vertical 
retrace time. This is done to keep uninitialized data from being displayed during 
scrolling. This means that only 24 of the 25 character rows or 216 of the 225 




Figure 2.1 II 'Z- 100 Block Diagram. 
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displayable scan lines actually display data. The Ada graphics library has been 
designed to work within these restrictions in order to maintain compatibility with 
existing H Z- 100 software. Figure 2.2 illustrates the display matrix including the scan 
line and pixel numbering system. 




There are two ways in which to control writing into the individual color planes, 
[lie first method is by programming the video control register of the video logic board. 
With this method, when a write enabled color plane is accessed, all write enabled color 
planes are simultaneously written to. For example, if all three color planes are write 
enabled and the green color plane is written to, then the corresponding addresses in the 
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blue and red color planes will also be written to. However, this feature was found to 
be unsatisfactory when constructing a graphics picture consisting of multiple colors 
and adjacent or overlapping objects. Under these conditions, it was discovered that the 
only color plane which could be guaranteed to contain correct data was the one which 
was directly written to. Therefore, the algorithms implemented in the Ada graphics 
library utilize the second method which involves direct control over each of the three 
color planes. This means that the implemented algorithms must access all three color 
planes for each pixel that is set. [Ref. 1: pp. 4.30-4.38] 



TABLE 1 

COLOR PLANE ADDRESSES 



COLOR PLANE 

blue 

red 

green 



RAM ADDRESSES 

OCOOOO - OCFFFF 
ODOOOO - ODFFFF 
OEOOOO - OEFFFF 



To produce color, the video RAM is divided into three main colors: red. green, 
and blue. Video RAM memory mapping of the three color planes is provided in Table 
1 with all addresses in hexadecimal. The pixel seen on the color monitor is actually 
composed of three superimposed pixels, one in each color plane. By selecting 
combinations of the three basic colors, eight different colors may be displayed as 
indicated by Table 2 . 

B. JANUS/ADA 

An overview of the JANUS Ada compiler [Ref. 5] and the CP/M-S6 operating 
system [Ref. 6] relating to the implementation of the Ada graphics library is presented 
to assist the reader in understanding the methods used to implement the graphics 
algorithms. The graphics routines are available to an Ada language program by 
linking to library routine ADAGRAPH.LIB (Appendix F). 

ADAGRAPILLIB is implemented as an Ada specification package. That 
package contains the specifications of the callable library procedures plus a list of the 
variables used by the Ada graphics library assembly code. The assembly code is 
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included in Ada assembly package ADAGR_A.PH.ASM (Appendix G). The following 
steps are used to compile, assemble, and link the Ada graphics library. 

(1) JANUS ADAGRAPH.LIB 

(2) JASMS6 ADAGRAPH 

(3) JLIXK ADAGRAPH 







TABLE 2 


! 

1 

1 

1 






COLOR TABLE 


GREEN 


RED 


BLUE 


DISPLAY COLOR 


0 


0 


0 


black 


0 


0 


1 


blue 


0 


1 


0 


red 


0 


1 


1 


magenta 


1 


0 


0 


green 


1 


0 


1 


cyan 


1 


1 


0 


yellow 


1 


1 


1 


white 



Parameters are passed in Ada by pushing them onto the system stack. Discrete 
and access data type parameters of mode IN are passed by value. All other data type 
parameters and modes are passed by reference. Upon entry to a procedure, the top of 
the stack contains the return address. Parameters or parameter addresses appear on 
the stack with the last parameter nearest the top of the stack. Figure 2.3 is an example 
illustrating the format of a procedure specification and the corresponding location of 
parameters on the system stack when the procedure is executed. 

If the parameters passed are only of mode IN. then the assembly procedure must 
remove those parameters from the stack and leave only the return address on top of 
the stack before executing a RET instruction to return from the procedure to the 
calling program. If the parameter list includes any mode OUT or IN OUT parameters, 
then the stack must be in the same configuration upon exit from the procedure as it 
was upon entry. 

When it is desired to access parameters on the stack without altering the stack 
contents, then the BP register should be used. The following steps illustrate how this 
can be performed. 

(1) MOV BP, SP ; Copy S? register to BP register 
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procedure INOUIRE COLOR( x pos, y dos: in INTEGER; 

color: out INTEGER); 



SP 

SP+2 

SP+4 



s 


1 

1 


Return 


Address 


1 

1 




1 


color; 


address 


1 




1 


y_pos; 


value 


1 




1 


x_pos; 


value 


1 




1 






1 



Top of 



Stack 



Figure 2.3 Parameter Passing. 

(2) MOV AX, [BP+2] ;Move last variable to AX register 

(3) MOV BX, [BP+1] ;Move next to last variable to BX 

C. GRAPHICS ALGORITHMS 

The following paragraphs provide a detailed explanation of each graphics routine 
in the Ada graphics library and the algorithms used to implement those routines. 
Several of the low level subroutines used to implement the library are not available to 
the user and are therefore not listed in the User's Guide (Appendix A). Only those 
graphics routines that have an apparent use in an Ada language program were made 
externally callable. 

1. Clear Screen (CLS) 

The CLS routine will clear the screen in one frame time (approximately 16.7 
ms for 60 Hz operation). The CLS algorithm [Ref. 1; p. 4-46] is described in the 
following steps: 

(1) Input and save the video status from I O port DS(hex). 

(2) Blank the screen by outputting OF(hex) via I O port DS(hex). 

(3) Output a "0" in bit 3 of the B control port DB(hex). This signals the video 
controller that the bit planes will be set to zero. This step is performed bv 
executing an input, modify, and output sequence. 

(4) Output a "0" to bit 3 of the A control port D9(hex). This enables the video 
processor's CLRSCRX signal. 

(5) Wait for one frame period to allow time to reset all of video RAM. 

(6) Output a "1" to bit 3 of port D9(hex). This disables the CLRSCRN signal. 
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(7) Restore video status that was saved in step 1 bv outputtina the saved status 
via port DS(hex). 

2. Color Selection 

When the color routine is called, it is passed an integer identifying the selected 
color. In normal operation, once a color has been selected, it remains the system color 
until changed by another call to the color procedure. 

The color procedure uses the color code parameter to perform two basic 
functions. First, it sets each of the three color plane variables to base addresses which 
will be used by other procedures to initialize the E segment register for addressing the 
the required color planes. Second, a control word (7S hex) is output to the video 
control register via I O port DS(hex). The control word disables the simultaneous 
write capability of the video controller. Table 3 lists the data used to control color 
selection. 



TABLE 3 

COLOR CONTROL 

Color Code Color Var. 1 Var. 2 Var. 3 



0 


white 


COOO 


DOOO 


EOOO 


1 


cyan 


COOO 


EOOO 


EOOO 


2 


magenta 


COOO 


DOOO 


DOOO 


3 


blue 


COOO 


COOO 


COOO 


A 


yellow 


DOOO 


EOOO 


EOOO 


5 


green 


E000 


EOOO 


EOOO 


6 


red 


DOOO 


DOOO 


DOOO 


7 


black 


— 


— 


— — 



In normal operation, control word bits 0. 1. 2, 7 are set to "0" bit 3 is set to 
"1" and bits 4-6 are used to control the simultaneous write capability of video RAM. 
The color routine does not affect the contents of the E segment register, but simply 
initializes variables which will be used to modify the E segment register as required. 
This is done to maintain compatibility with other II Z-100 software which uses the E 
segment register, e.g.. the standard 1.0 library. 

3. Video Ram Addressing 

Mapping of the video to the screen is accomplished in two steps. The first is 
performed by the ADJ_SL procedure which accepts a Y position in the range 0-215 
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and maps that position to a displayable scan line. This mapping is described by the 
equation Scan_Line_Number = Y + (Y Mod 16)*7. This function is implemented by a 
simple counter which adds seven to the scan line count for each block of 16 lines. Step 
two is performed by the REL_V1D_ADDR procedure. This procedure uses the X 
position and scan line number to calculate the corresponding relative byte address in 
video RAM. This is a relative address since it is independent of the color plane. 
Relative byte addresses are calculated using the formula: 

Relative_Address = Y * 128 + X Mod 8. 

Prior to address calculation, error checking is performed to insure that: 

0<=X<=639 and 0<=Scan_Line_Number<=376. 

4. Pixel Display 

Displaying of individual pixels is performed by procedure SET_PIXEL. 
Procedure SET_PIXEL accepts an (X.Y) coordinate and performs the following steps: 

(1) Calls procedure ADJ_SL to map the y coordinate to a displayable scan line. 

(2) Calls procedure REL_VID_ADDR to get the relative byte address. 

(3) Calculates the relative bit position within a byte based on the x coordinate. 

(4) Initializes segment E to provide the base address for the desired color plane. 

(5) Sets the selected pixel by writing to the relative address. 

(6) Repeats steps 4 and 5 for each - of the three color plane variables. 

5. Line Drawing 

Line drawing may be performed by either procedure DRAW_LINE or 
procedure DRAW_MLINE. The two procedures use the same algorithm for line 
drawing with the difference being in the way that intersecting lines are displayed. 
Procedure DRAW_LI\E always displays the most recently drawn line on top while 
procedure DRAW_MLINE mixes the colors of crossing lines at the point of 
intersection. The line drawing algorithm is an adaptation of a general integer digital 
differential analyzer (integer DDA) algorithm described by Marc Berger [Ref. 7: pp. 
41-45]. The general integer DDA has been expanded from four to six cases and a 
smoothing function has been included. The two additional cases were added to handle 
the special cases where a line is either vertical or horizontal. The smoothing function 
was added to improve symmetry in the staircase effect which is inherent with raster 
scan displays. 

The integer DDA algorithm is an iterative process which operates by taking 
unit steps along the X and or Y axis beginning at line start and continuing to line end. 
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The direction of each step is determined by an error variable which identifies whether 
the present position is above or below the ideal line. After each step, the error variable 
is updated based on the direction of movement. The initial value of the error variable 
is determined by the smoothing function which biases the error variable so that the 
first pixel step in one axis is delayed based on the slope of the line. Without this bias 
the DDA algorithm frequently makes an erroneous first move. An example of an 
extreme case illustrates this point. For example, if a near horizontal line with a single 
pixel change in Y is drawn by the unbiased algorithm the pixel step will occur at line 
start. However, in the biased algorithm the pixel step will occur at the approximate 
midpoint of the line. This provides an obvious enhancement in symmetry to a staircase 
line. 

Implementation of the six cases in the line drawing algorithm assumes that the 
input coordinates are ordered so that Y_START < = Y_EXD. This ordering is 
enforced by the line drawing procedure prior to plotting a line. 

In the description of the six cases which follows, initial values of X and Y are 
respectively X_START and Y_START and the following definitions apply. 



X 


X 


coordinate 








Y 


Y 


coordinate 








X_ START 


X 


coordinate 


of 


line 


start 


Y_START 


Y 


coordinate 


of 


line 


start 


X_END 


X 


coordinate 


of 


line 


end 


Y_END 


Y 


coordinate 


of 


line 


end 


DX 


X. 


.END - X_START 






DY 


Y_ 


.END - Y_ START 






E 


error 









(1) DY = 0. 

This is a horizontal line, 
initialize 
X: =X_ START 
Y: =Y_ START 
end initialize 
repeat until (X=X_END) 
X: =X+1 
plot( X, Y) 
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end repeat 

(2) DY <= DX, DX > 0, and DY > 0. 

This is a line with positive slope between 0 and 1. 
initialize 
X: =X_START 
Y: =Y_ START 
E: =DX/( DY+1) 
end initialize 

repeat until ( X=X_END & Y=Y_END) 
if (E<0) then 
X: =X+1 
E: =EtDY 
otherwise 
X: =X+1 
Y: =Y+ 1 
E: =E-DX+DY 
end if 
end repeat 

(3) DX < DY, DX > 0, and DY > 0. 

This is a line with positive slope greater than 1. 
initialize 
X: =X_START 
Y: =Y_START 
E: =DY/( DX+ 1 ) 
end initialize 

repeat until ( X=X_END & Y=Y_END ) 
if ( E<0 ) then 
X: =X+1 
Y: =Y+1 
E: =E-DX+DY 
otherwise 
Y: =Y+1 
E: =E-DX 



end if 
end repeat 
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( 

Thi s 



( 

This 



( 

This 



4) DX = 0. 

is a vertical line, 
initialize 
X: =X_START 
Y: =Y_ START 
end initialize 
repeat until (Y=Y_END) 

Y: =Y+ 1 
end repeat 

5) DY >= ABS(DX), DX < 0, and DY < 0. 

is a line with negative slope between -1 

initialize 
X: =X_START 
Y: =Y_START 
E: =DX/( DY+ 1 ) 
end initialize 

repeat until ( X=X_END & Y=Y_END) 
if (E<0) then 
X: =X- 1 
E: =E+DY 
otherwi se 
X: =X-1 
Y: =Y+ 1 
E: =E + DX+DY 
end i f 
end repeat 

6) ABS(DX) < DY, DX < 0, and DY < 0. 

is a line with negative slope less than 

initialize 
X: =X_START 
Y: =Y_ START 
E: =DY/( DX+1) 
end initialize 

repeat until ( X=X_EMD & Y=Y_END) 
if ( E<0 ) then 






and 0. 



X: =X-1 
Y: =Y+ 1 
E: =E+DX+DY 
otherwi se 
y: =Y+ 1 
E: =E+DX 
end if 
end repeat 

6. Circle Drawing 

Circle drawing is performed by passing the (X.Y) coordinate of the circle 
center and a radius to procedure CIRCLE. The algorithm executed by the circle 
drawing routine is an implementation of Bresenham's circle algorithm described by 
Hearn and Baker [Ref. 8: pp. 67-69]. In this implementation, the algorithm has been 
modified to include a correction factor to compensate for the X:Y pixel ratio of the 
raster display. 

Bresenham's algorithm takes advantage of the symmetry of a circle in 
providing an efficient incremental method for plotting a circle. In this algorithm, eight 
points are plotted for each parameter calculation. Although multiplications are 
required in parameter calculations, the multiplier is a power of 2. so all multiplications 
can be reduced to a less costly shift operation. Figure 2.4 is a flow chart 
representation of the implemented version of Bresenham's algorithm. 

7. Color Testing 

The color of an individual pixel may be determined by passing an (X.Y) 
coordinate to procedure INQLTRE_COLOR. This procedure will determine the pixel 
color and return an integer value defining the color code. Color codes are listed in 
Table 2 . 

The color testing algorithm uses the (X.Y) coordinate to calculate a relative 
byte address. It then uses the X coordinate to generate a bit mask to identify the 
specific bit location within a byte. The relative byte address and bit mask are then 
used to test the corresponding address in each of the three color planes. This test 
identifies the color components contained in that pixel and a color code is returned to 
the calling program. 
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START 



I 



INIT . VARIABLES 
X : =0 

Y:=RADIUS 

P:=3-2-RADIUS 



PLOT CIRCLE POINTS 



SET_PIXEL (X_CENTER +X 
SET_PIXEL (X_CENTER -X 
SET_PIXEL (X_CENTER -X 
SET_PIXEL(X_CENTER -X 
SET_PIXEL (X_CENTER + Y 
SET_PIXEL (X_CENTER-Y 
SET_PZXEL(X_CENTER +Y 
SET_PEXEL (X CENTER -Y 



, Y_CENTER + Y / 2 ) 
, Y_CENTER +Y/2) 
, Y_CENTER-Y/2) 
, Y_CENTER-Y/2) 
, Y_CENTER+X/2) 
, Y_CENTER+X/2) 
, Y_CENTER-X/2) 
, Y_CENTER-X/2) 




EXIT 



Ssn- P : = P+4« (X-Y) +10 



Y : =Y- 1 



E-'iuure 2.4 Bresenhams Circle Aleorithm. 
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S. Area/Polygon Filling 

Filling may be accomplished by calling either the procedure 
BOL'NDARY_FILL or procedure AREA_F1LL. Both of these procedures use 

algorithms based on a 4-connected boundary-fill algorithm described by Hearn and 

Baker [Ref. S: pp. 92-93]. The 4-connected boundary-fill algorithm accepts as inputs 
the (X.Y) coordinate of an interior point of an area bounded by the specified boundary 
color and a fill color. Starting at the initial (X.Y) coordinate, each of the four 
neighboring points [(X+ l.Y). (X-l.Y), (X.Y + 1). (X,Y-1)] are tested. If the point is of 
a different color than the boundary, then it is set to the fill color and neighbors of the 
new point are tested. This procedure continues until all points within the bounded 
area have been tested. Figure 2.5 is a recursive Pascal 4-connected boundary-fill 

procedure from Hearn and Baker [Ref. S: p. 93], which forms the basis for the 

following procedures. 



procedure boundary_f i 11( x, y, fill_color < 

boundary_color: integer) ; 

var present_color: integer; 

begin 

present_color := inquire_color( x , y) : 
if ( present_color <> boundary color) and 
( present_color <> fill_color7 then 
begin 

set_pixel(x, y, fill_color); 

boundary_f i il( x+1 , y, fill_color / boundary_color ) ; 
boundary_f i 111 x- 1 , y, fill_color / boundary_color); 
boundary_f ill( x, y+1, fill_color / boundary_color ) ; 
boundary_f i 11( x, y-1, fill_color / boundary_color) ; 
end 
end; 



Figure 2.5 Pascal Boundary-Fill Procedure. 

Procedure BOL’NDARY_FILL is a recursive routine whose input parameters 
include a beginning (X.Y) coordinate, a fill color, and a boundary color. This routine 
uses the 4-connected fill algorithm to fill an area bounded by the specified boundary 
color. 

Procedure AREA_FILL is a recursive routine whose input parameters include 
only a beginning (X.Y) coordinate and a fill color. This routine uses the 4-connected 
fill algorithm to fill a contiguous area of the same color as that at the beginning (X.Y) 
coordinate. 
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The actual implementation of each of the two fill procedures is subdivided into 
two procedures. The first procedure initializes constant variables and then calls the 
second procedure. The second procedure is used for successive recursive calls. This 
technique minimizes the number of parameters which must be passed on each 
successive recursive call. 

An individual call to either of the fill procedures can fill an area of at most a 
few square inches. Attempting to fill a larger area may result in a stack overflow error. 
This is an implementation limitation which can be circumvented by subdividing a large 
area into smaller areas, each of which may be filled separately. An exact upper limit 
on the size of an area which may be filled by a single call to a fill procedure is difficult 
to predict since it depends on the starting point within a specified area. Additionally, 
area filling is an inherently slow process due to the large number of calculations 
involved. 

9. Cursor Control 

The " + " symbol is used to represent a graphics cursor. Cursor positioning is 
controlled by procedures SET_CURS and RESET_CURS. Procedure SET_CURS 
accepts an (X.Y) coordinate and displays a cursor centered at that coordinate. 
Procedure RESET_CURS accepts an (X.Y) coordinate as input and erases a block of 
addresses surrounding that coordinate. Both procedures affect only the color planes 
that are enabled by the current system color. 

Management of the cursor display and positioning is a responsibility of the 
user program. A cursor is not automatically displayed nor is there a limit on the 
number of cursor symbols which may be displayed concurrently. 

The cursor symbol is composed of nine pixels with the center of the cursor 
being the reference point for positioning. In order to be able to position the cursor at 
any (X.Y) screen coordinate, it is necessary to consider individual components of the 
cursor. The vertical dimension (5 pixels) of the cursor spans five different relative byte 
addresses in video RAM. Additionally, the horizontal dimension (5 pixels) of the 
cursor may require an additional byte of memory'. Whether an additional byte is 
required depends on the relative position within a byte of the cursor center. If the 
cursor center is near either end of a byte, then either the next lower or next higher byte 
from cursor center will also be required to display the cursor. 

The set cursor algorithm uses the (X.Y) coordinate to calculate five relative 
byte addresses. These addresses represent a block on the screen which will contain the 
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cursor. The algorithm then uses the X coordinate to determine which of the eight bit 
positions within a byte represents cursor center. Then one of eight possible bit 
patterns is generated to represent the cursor. Resetting a cursor requires less program 
steps since a block of seven relative byte addresses are erased without regards to the 
exact position of the cursor within the block. 
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HI. PERFORMANCE AND EVALUATION 



A. DEMONSTRATION PROGRAMS 

Four demonstration programs are provided in Appendices B-E. Those programs 
along with the user's guide in Appendix A. will aid the user in writing graphics 
programs using the Ada language. 

1. Program AGTESTI 

Program AGTESTI draws a test pattern demonstrating the use of color 
selection, line drawing, circle drawing, and filling. This test uses ADAGRAPH 
procedures COLOR. SET_CURS. CIRCLE. DRAW_LIXE. BOUXDARY_FILL. and 
AREA_FILL. 

2. Program AGTEST2 

Program AGTEST2 draws a pattern consisting of two sets of curves and a 
color wheel illustrating the eight available colors. AGTEST2 uses ADAGRAPH 
procedures COLOR. DRAW_LIXE, DRAW_MLIXE, CIRCLE, and AREA_FILL. 

3. Program AGTEST3 

Program AGTEST3 demonstrates interactive control of the graphics cursor. 
The user is asked repetitively to enter an (X.Y) coordinate. The program then displays 
a cursor centered at that coordinate and erases the previous cursor. 

4. Program AGTEST4 

Program AGTEST4 begins by drawing a circle of the approximate maximum 
area (approximately seven square inches) that can be filled by a single call to one of 
the fill procedures. It then fills the circle and goes on to demonstrate how polygons 
may be drawn by setting resetting individual pixels. It also demonstrates filling an area 
containing an object. AGTEST4 uses ADAGRAPH procedures COLOR. 
SET_PIXEL, RESET_PIXEL, CIRCLE. BOLXDARY_FILL. and AREA_FILL. 

B. ADA GRAPHICS LIBRARY LIMITATIONS 

The Ada graphics library presented in this thesis was developed as a prototype. 
Limitations of the library procedures should not cause significant problems to the user 
as long as the guidelines presented in the user's guide (Appendix A) are followed. The 
only known procedures which can cause a catastrophic failure if limits are exceeded are 
the fill procedures. The fill procedures can fill at most a contiguous .area of 
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approximately seven square inches. Even filling a seven square inch area may cause an 
error if the starting point is not near the center of the area. However, if the user will 
limit the size of contiguous areas to be filled to approximately 3-4 square inches, then 
the probability of failures is very low. The reason for this limitation is that the fill 
routines are implemented as recursive procedures. As a recursive procedure, each level 
of recursion requires that three more parameters be pushed onto the system stack. 
Attempting to fill too large an area simply results in a stack overflow. 

Another area of inconvenience for the user may occur in attempting to use the 
graphics library along with other libraries, e.g.. the standard 10 library. The standard 
10 library procedure GET automatically causes scrolling of the display screen by one 
character row each time it is executed. This is an obvious problem when used in 
concurrence with a fixed position graphics display. 

C. H/Z-100 HARDWARE LIMITATIONS 

A potential problem area for the user is due to the limited number of colors ( S) 
available for display. This may be particularly inconvenient when writing interactive 
programs using the graphics cursor or any other symbols which are to be moved within 
the display. Management of movable objects can become very costly in terms of both 
processing time and amount of program code. The H Z- 100. while comparable to 
many other microcomputers, is still quite slow in displaying a complex graphics picture. 
One method of optimizing the management of moving objects in the display is to 
restrict those objects to a dedicated color plane. If this is done, then updating the 
position of a moved object can be done without disturbing the graphics objects defined 
in the other color planes. A disadvantage of this approach is that there are only three 
color planes available to begin with and by dedicating one color plane to something 
like a cursor reduces the colors available for other objects from eight to four. 

D. TIMING MEASUREMENTS 

Table 4 provides a summary of timing measurements performed to determine 
average graphics processing times for the most critical operations. Times represented 
in the table are average times that one would expect to encounter in a call to Ada 
graphics library procedures when drawing a graphics picture. 

The fill procedures are quite slow due to the large number of steps involved in 
testing and setting each pixel and the additional overhead related to a recursive 
procedure. The timing differences between drawing horizontal vertical lines and 



TABLE 4 

PERFORMANCE RESULTS 



Operation 


Time oer Pi: 


Fill 


3 


Draw Line 


Horiz. /Vert. 


. 54 


Di agonal 


. 64 


Set/Reset Pixel 


. 58 



diagonal lines is due to the two additional cases which were implemented in the line 
drawing algorithm. Those cases were added to handle the special cases where a line is 
either vertical or horizontal. In those cases, since the slope of the line is not used in 
plotting the line, less calculations are required than when plotting a diagonal line. 

Setting resetting of individual pixels by all of the graphics procedures is slowed 
by the overhead in address calculation of the bit mapped display. This is primarily a 
weakness in the design of the video processor of the H Z- 100. However, it would be 
interesting to see if a significant speedup could be realized if a lookup table was used to 
aid in pixel addressing instead of a pure mathematical addressing algorithm. 
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IV. RECOMtMENDATIONS FOR FUTURE DEVELOPMENT 



Any future additions; modifications to the Ada graphics library should consider 
the following: 

(1) The feasibility of implementing a nonrecursive fill routine. 

(2) Development and implementation of different I O procedures that are more 
compatible with a graphics displav to replace those in the standard I O 
library. In particular, these procedures should allow placement of 
alphanumeric symbols at anv screen coordinate, not just the predefined 
character positions. Anv scrolling of the screen should also be strictlv under 
the control of the user program. 

(3) The possibility of optimizing some of the existing procedures. For example, 
perhaps the mapping from a Y coordinate to a displayable scan line could be 
performed more efficiently by a lookup table. But, would the time savings 
justify the additional memory ‘required? 

(4) The feasibility of developing and implementing a subset of the GKS standard 
as a level of abstraction above the primitives provided in the Ada graphics 
library. 

(5) Jhe feasibility of networking two or more H Z-100 computers to provide 
interactive operator communication on one system while providing a graphics 
display on another. 

(6) The feasibility of modifving the structure of the Ada graphics librarv so that it 
is compatible with the MS-DOS operating system hosted on the H Z- 100. 
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V. CONCLUSION 



The implementation of the Ada graphics library on the H, Z- 100 computer has 
proven the feasibility of developing Ada graphics programs on a microcomputer. The 
H, Z-100 is certainly suitable for educational purposes but its ability to meet real time 
tactical requirements is limited. This limitation is not unique to the H Z-100. but is a 
general limitation of most microcomputers available today. We can expect this 
limitation to ease significantly over the next several years as low cost multiprocessor 
systems are developed. 

The Ada graphics library was implemented as low level primitives necessary to 
interface with and control the H Z-100 hardware. The library functions were not 
designed in accordance with any recognized standards. However, the functions were 
designed with graphics standards in mind. The implementation of a higher level GKS 
standard graphics library would be able to use most of the present Ada graphics library 
primitives to interface with the H Z-100 hardware. The implementation of a GKS 
standard as a level above the machine dependent Ada graphics library would assist in 
making any developed Ada language graphics programs transportable to other 
computers. The benefits which may be realized from a standard interface to a language 
are obvious with the high costs of developing software. Although the architectural 
limitations of the H Z-100 are not compatible with a full implementation of the GKS 
standard, the educational benefits that could be realized from even an implementation 
of a subset of the GKS standard warrants futrther investigation. 

The limited capabilities of the H Z-100 may limit its suitability for many 
operational tactical applications, however, it can be a useful system for program 
development. With the support of the Ada graphics library, the H Z-100 can assist in 
performing further research into such tactical programming applications as the Navy 
Tactical Data System (N'TDS). The ability to perform research in this area could be 
further enhanced by the development of a GKS standard graphics library for the 
H Z-100 computer. 



APPENDIX A 
USER'S GUIDE 



1. INTRODUCTION 

Twelve graphics procedures are available to the user. These procedures are 
included in ADAGRAPH.LIB which is callable from the Ada programming language. 
Appendices B-E provide four example programs demonstrating the linkage and calling 
procedures necessary to use the Ada graphics library. Procedures available to the user 
are: 

( 1 ) CLS 

(2) COLOR( color_code: in INTEGER) 

(3) INOUIRE_COLOR( x_coord, y_coord: in INTEGER; 

color_code: out INTEGER) 

(4) SET_PIXEL( x_coord, y_coord: in INTEGER) 

(5) RESET_PIXEL( x_coord, y_coord: in INTEGER) 

(6) DRAW_LINE( x_start, y_start / x_end, y_end: 

in INTEGER) 

(7) DRAW_MLINE( x_start , y_start, x_end, y_end: 

in INTEGER) 

(8) CIRCLE( x_center , y_center, radius: in INTEGER) 

(9) BOUNDARY_FILL( x_coord, y_coord, fill_color, 

boundary_color: in INTEGER) 

(10) AREA_FILL( x_coord, y_coord, fill_color: in INTEGER) 

(11) SET_CURS( x_coord, y_coord: in INTEGER) 

(12) RESET_CURS( x_coord, y_coord: in INTEGER) 

Following the description of each function is an example of the Ada language 
call to the described procedures. It should be noted that for all procedures that require 
an (X.Y) coordinate that the allowable range of X is 0-639 and the allowable range of 
Y is 0-216. 



2. CLEARING THE SCREEN 

Most graphics programs will require clearing the display screen before displaying 
graphics data. This is best performed by calling procedure CLS. This procedure takes 






advantage of a built-in hardware feature which allows resetting all of video RAM in 
one frame period (approximately 16.7 ms). 

— Clear the screen 
CLS; 

3. COLOR SELECTION 

The H Z-100 has the capability of displaying up to eight different colors. Color 
selection is performed by calling procedure COLOR and passing a color code 
parameter identifying the desired color. Table 5 lists the colors available and their 
respective color codes. Black, is not listed as a color option since it is the only color 
which is displayed by resetting a pixel, i.e.. writing a "0" to that pixels corresponding 
addresses in video RAM. All other colors are displayed by writing a "1" in the 
appropriate relative address of the color planes required to produce the desired color. 
If a pixel is to be reset to black then the RESET_PIXEL procedure should be used. 
-Set system color to green 
COLOR(o); 





TABLE 5 
COLOR CODES 


COLOR 


CODE 


COLOR 


0 




white 


1 




cyan 


2 




magenta 


3 




blue 


4 




yellow 


5 




green 


6 




red 



4. COLOR TESTING 

To determine the color to which any particular pixel has been set. use procedure 
INQLTRE_COLOR. Input parameters to this procedure are the (X.Y) coordinate of 
the selected pixel. The procedure returns the color code (Table 5) of the pixel located 
at that coordinate. 

-Get color of pixel at (X.Y) coordinate (50.60) 
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INQUIRE_COLOR(59. 60. color); 



5. PIXEL SETTING/RESETTING 

Procedures SET_PIXEL and RESET_PIXEL are provided for controlling 
individual pixels. Procedure SET_PIXEL accepts an (X.Y) coordinate as input 
parameters and sets the corresponding pixel to the current system color. Procedure 
RESET_PIXEL accepts an (X.Y) coordinate as input parameters and resets the 
corresponding pixel to black. 

--Set pixel at location (70,50) to current system color 
SET_PIXEL(70, 50): 

-Reset pixel at location (50.50) to black 
RESET_PIXEL(50. 50); 

6. LINE DRAWING 

Procedures DRAW_LINE and DRAW_M LINE are provided for drawing lines. 
Both procedures accept as input parameters the (X.Y) coordinates of the end points of 
a line. A line of the current system color is then drawn connecting those end points. 
If procedure DRAW_LINE is used, then intersecting lines will be displayed with the 
last line drawn on top. If procedure DRAW_MLINE is used for drawing lines then 
the color at the point of intersection of intersecting lines is the combined color of the 
individual lines. 

-Draw a line from coordinate (100,50) to 
-coordinate (200,75). This line will be 
-drawn on top of any line it intersects. 

DRA\V_LINE( 100. 50. 200. 75): 

—Draw a line from coordinate (100,25) to 
-coordinate (10.15). This line will mix 
-colors at the point of intersection with 
—any lines that it intersects. 

DRAW_MLINE(100, 25. 10. 15): 

7. CIRCLE DRAWING 

Procedure circle will draw a circle of the present system color. Input parameters 
to this procedure include an (X.Y) coordinate identifying the circle's center position 
and a radius length measured in units based on the number of pixels (640) in the X axis 



of the video display. The circle drawing algorithm draws a circle with automatic 
corrections made based on the x:y linear pixel ratio (2:1) of the color monitor, i.e.. the 
circle radius is twice as many pixels in the X axis as it is in the Y axis. 

-Draw a circle of radius 50 units and 
—centered at coordinate (300, 100). 

CIRCLE(300. 100. 50): 

8. AREA/POLYGON FILLING 

Procedures BOUNDARY_FILL and AREA_FILL are available to perform 
filling operations. The user is cautioned that the filling algorithm has an upper limit on 
the size of an area (approximately seven square inches) which may be filled by a single 
call to either of the fill procedures. Larger areas may be filled by partitioning the 
larger area and filling the individual partitions. The user can generally avoid problems 
by limiting all fills to a contiguous area of not more than 3-4 square inches. 

Procedure BOUN'DARY_FILL accepts as input parameters an (X.Y) coordinate 
identifying the starting point, a fill color code, and a boundary' color code (Table 5). 
The procedure begins filling from the starting (X,Y) coordinate and sets all pixels 
within the defined boundary to the designated fill color. The boundary must be a 
single color defined by the boundary color code. 

Procedure AREA_FILL accepts as input parameters an (X.Y) coordinate 
identifying the starting point and a fill color code (Table 5). The procedure starts at 
the input (X.Y) coordinate and sets all pixels in a contiguous area which are the same 
color as the pixel at the (X.Y) starting coordinate to the specified fill color. This 
procedure can fill an area which is bounded by different colors since filling is based on 
the color of the area to be filled. 

—Beginning at coordinate (50,75), fill an area 
-with blue that has a red boundary. 

BOUNDARY_FILL(50. 75. 3. 6): 

-Fill a contiguous area with green. An internal 
-point in that area is coordinate (100.100). 

AREA_FILL( 100. 100. 5): 

1. CURSOR CONTROL 

Procedures SET_CURS and RESET_CURS are provided for cursor control. The 
graphics cursor controlled by these procedures is a " + ". The center of the cursor is 



used as a reference point for cursor placement. All management of cursor display is 
the responsibility of the user. The cursor is simply a special graphics symbol which the 
user may display and erase. The number of cursor symbols which may be displayed at 
any point in time is determined solely by the user's program. 

Procedure SET_CURS accepts as input an (X,Y) coordinate and displays a 
cursor symbol of the present color at that coordinate. Procedure RESET_CURS 
accepts as input an (X.Y) coordinate and resets a block of relative memory addresses 
centered at the corresponding (X.Y) coordinate. The color planes affected are 
determined by the present system color. It is suggested that if the user desires to use 
the cursor as a background symbol then the cursor color should be restricted to a 
single color plane (red. green, or blue) that is dedicated to cursor display. If this is not 
done then a management scheme must be implemented in the user program to 
maintain the integrity of non-cursor graphics data when setting resetting the cursor. 

—Display a green cursor at coordinate (150,100). 

COLOR(5); 

SET_CURS( 150. 100): 

—Erase a green cursor at coordinate (50.75). 

• COLOR(5); 

RESET_CURS(50, 75); 
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APPENDIX B 
GRAPHICS TEST I 



WITH 10, UTIL , ADAGRAPH ; 

PACKAGE BODY AGTEST1 IS 
USE 10, UTIL, ADAGRAPH; 

--THIS PROGRAM DRAWS A TEST PATTERN TO TEST COLOR SELECTION, 
--CURSOR SETTING, CIRCLE DRAWING, LINE DRAWING, AREA FILLING, 
--AND BOUNDARY FILLING 

x_pos, v dos : integer; 
quit : cnaracter; 
begin 
cls • 

XJOOS := 320; 
y DOS := 103; 

color (5); --GREEN 
set_curs (300 , 135); 
color (3) ; --BLUE 
--DRAW A CIRCLE 

circle(300, 102, 142); 
color(6); --RED 
-- DRAW A RECTANGLE 



--DRAW A CIRCLE AND FILL IT 
circle(300, 102, 40); 
area_fill(300 ,102,3) ; 

--DRAW AN IRREGULAR POLYGON AMD FILL IT 



.... ■); 

--DRAW A TRIANGLE AND FILL IT 

draw_line(50 , 100 ,30 , 130) ; 
draw_line (80 , 130 , 20 , 130 ) ; 
draw_line (50,100,20,130); 
area_fill(50 ,120,5) ; 
color (2); --MAGENTA 

--DRAW A RECTANGLE 

draw_line(10 , 10, 590, 10); 
draw_line (590 , 10, 590, 205); 
drav_line (590 , 205, 10, 205); 
draw_line ( 10 , 205, 10, 10); 
color(5) ; 

--DRAW A RECTANGLE WITH DIAGONAL LINES 
draw_line(200 , 52, 400, 52); 



draw_line (400 , 152, 200, 152); 
draw_line (200 , 152, 200, 52); 
draw_line ( 200 , 52, 400, 152); 
draw_line (200 , 152, 400, 52); 
get (quit) ; 





draw_line (400 , 52, 400, 152^; 



end AGTEST1 ;' 
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APPENDIX C 
GRAPHICS TEST 2 



WITH 10, UTIL , ADAGRAPH ; 

PACKAGE BODY AGTEST2 IS 
USE 10, UTIL, ADAGRAPH; 

--THIS PROGRAM EXERCISES THE LINE DRAWING, CIRCLE, 
--AND AREA FILLING PROCEDURES TO PRODUCE A PICTURE 
--WITH COLORED CURVES AND A COLOR WHEEL 



i, x, y, yl , y2, pcol : integer; 
quit : character; 
begin 
CLS ; 

y := 0; 
yl := 0: 
color (6 ) ; 

--LOOP TO DRAW CURVE 1 
for i in 0 . . 63 loop 
x := i * 10; 
y2 -.= 139 - yl; 
araw_mline(x, y, 0, y2); 
y ;= y + 2; 

VI := yl + 3; 
end loop; 
y := 0; 
yl := 0; 
color(l ) ; 

--LOOP TO DRAW CURVE 2 
for i in 0 . .63 loop 
x := 630 - (i * 10); 
y2 := 139 - yl; 
araw_mline (x, y, 630, y2); 
y := y + 2; 
yl := yl + 3; 
end loop; 

--DRAW A COLOR WHEEL 
color(O) ; --WHITE 
circle (320 , 150, 100); 
draw_line (320 , 100, 320, 200' 

draw_line (220 , 150, 420, 150, 

draw_line (249 , 115, 391, 185 

drav_line (391 , 115, 249, 185 

area.fill 355, 115, 0); --COLOR 0 

area_fill( 391 , 140, 1 ; --COLOR 1 

area_fill(391, 170, 2); --COLOR 2 

area_fill(330 , 135, 3); --COLOR 3 

area_fill> 310 , 135, 4); --COLOR 4 

area_fill( 249, 160, 5); --COLOR 5 

area_fill(249 , 130, 6); --COLOR 6 

get (quit) ; 
encf AGTEST2; 



WHITE 

CYAN 

MAGENTA 

BLUE 

YELLOW 

GREEN 

RED 
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APPENDIX D 
GRAPHICS TEST 3 



WITH 10, UTIL , ADAGRAPH ; 
PACKAGE EODY AGTEST3 IS 
USE 10, UTIL, ADAGRAPH; 



--THIS PROGRAM IS USED TO TEST SETTING AND RESETTING 
--OF A GRAPHICS CURSOR. THE PROGRAM REOUESTS CURSOR 
--POSITION INPUTS, ERASES THE PREVIOUS CURSOR, AND 
--DRAWS A CURSOR AT THE INPUT (X,Y) COORDINATE 



i : integer; 
xjpos , y_pos, 
begin 
CLS; 

X_0ld := 0; 
V_0ld := 0; 
tor i in 1, 
put 



x_old, y_old : integer; 



--INITIALIZE X Sc Y 



" ) ; 



50 loop 

"ENTER X POSITION 
get(x_pos) ; 
put ("ENTER Y POSITION 
get(y dos) ; 
color^o); --GREEN 
reset_curs(x_old, y_old) ; 
set curs(x_pos, y_pos); 
x_oId := x_pos ; 
y_old := y_pos - 13; 
end loop; 
end AGTEST3; 
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APPENDIX E 
GRAPHICS TEST 4 



WITH 10, UTIL , ADAGRAPH ; 

PACKAGE BODY AGTEST4 IS 
USE 10, UTIL, ADAGRAPH; 

--THIS PROGRAM IS USED TO DISPLAY A CIRCLE OF THE APPROXIMATE 
--MAXIMUM AREA THAT CAN BE FILLED BY A SINGLE CALL TO ONE OF 
--THE FILL ROUTINES. IT THEN DEMONSTRATES FILLING AND 
--DRAWING OF POLYGONS USING ONLY THE SET_PIXEL AND RESET_PIXEL 
--PROCEDURES, 
x, y : INTEGER; 
quit j character; 
begin 
CLS ; 

--SELECT COLOR 

co lor (0); --WHITE 
--DRAW A CIRCLE 

circle (300 , 102, 115); 

--FILL THE CIRCLE WITH RED 

boundarv_fill(300 , 102, 6, 0); 
color (1); --CYAN 

--DRAW A RECTANGLE USING SET PIXEL 



for x in 250.. 350 loop 
set_pixel(x, 77); 
set_pixel(x, 127); 
end loop; 

for y in 77.. 127 loop 
set_pixel (250 , y) ; 
set_pixel(350 , y) ; 
end loop,- 

--FILL THE RECTANGLE 

area_fill(300 , 102, 5); --COLOR 5 = GREEN 
--ERASE A RECTANGLE USING RESET PIXEL 



for x in 280.. 320 loop 
for y in 92.. 112 loop 
reset_pixel(x, y) ; 
end loop ; 
end loop ; 

area_fill(375 , 102, 2); 
color (6) ; 

get (quit); 
end AGTEST4; 
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APPENDIX F 

SPECIFICATION PACKAGE 



PACKAGE ADAGRAPH IS 

--RETURN ADDRESS VARIABLES 

RET_ADJ_SL , RET_RVA , RET_LS , RET_IC , RET _XM : INTEGER ; 

RET_FILL , RET_AFILL , RETOOL , RET_SPE , RET_CPE s INTEGER ; 

RET_DML , RET_RPE : INTEGER ; 

--CURSOR ADDRESS VARIABLES 

CURS_0 , CURS_1 , CURS_2 , CURSES , CURS_4 : INTEGER ; 

X LOC: INTEGER; 

--X/Y POSITION AND GENERAL PURPOSE VARIABLES 
XJ5TART , Y_START , X_END , Y_END : INTEGER ; 

X_POS , Y_POS , DELTA_X , DELTA_Y , INC_CTR : INTEGER ; 

L_ERROR , END_CNT : INTEGER; 

X_CTR # Y_CTR , RADIUS , X_REL , Y_REL , ?_VAL : INTEGER ; 

--COLOR VARIABLES 

P _COLOR , F — COLOR , 3_C0L0R : INTEGER ; 

--SYSTEM STATUS 

SYS_STAT: INTEGER; 

--SEGMENT E STATUS 

SEGMENT _E , SEGMENT^ FE , SEGMENT.IE s INTEGER ; 

--COLOR PLANE BASE ADDRESS 
COL_PL_ADDR : INTEGER ; 

SAV_COLl_STAT , SAV_COL2_STAT , SAV_COL3_STAT : INTEGER ; 

COL_PLl , COL_?L2 , COL_?L3 : INTEGER; 

--FILL ROUTINE CONTOL VARIABLE 
COL_MIX: INTEGER; 

--GRAPHICS LIBRARY PROCEDURES 

PROCEDURE CLS • 

PROCEDURE COLOR( color_Code : in INTEGER); 

PROCEDURE SET_CURS(x dos, v_pos : in INTEGER); 

PROCEDURE RESET_CURS'(x_pos* v_pos : in INTEGER) ; 

PROCEDURE DRAW_LIME(x_start , y_start, x_end, y_end : in INTEGER) 
PROCEDURE DRAW_MLIME(x_start , y_start, x end, y_end ; in INTEGER 
PROCEDURE CIRCLE (x_ctr , y_ctr, radius : In INTEGER); 

PROCEDURE INQUIRE_COLOR(x_pos, v_pos : in INTEGER; 

color : out INTEGER) ; 

PROCEDURE BOUMDARY_FILL(x_pos . v_pos, f color, b_color : 

in* INTEGER f; 

PROCEDURE AREA_FILL(x_pos , y_pos, f color : in INTEGER); 
PROCEDURE SET_PIXEL(x dos, y_pos s In INTEGER); 

PROCEDURE RESET_PIXELlx dos, y_pos : in INTEGER); 

END ADAGRAPH; 
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APPENDIX G 

ASSEMBLY CODE LISTING 



PACKAGE ASSEMBLY ADAGRAPH 
JMP MAIN 

/ 



. 7\7\“7\7\7\7\7\7\7\7\7\7\7\7\7\7\7\7\7\7\7\7\7\™7\,T7\“~7\7\7\ 



•PROCEDURE 
PROC CLS ; 


CLS IS 


USED TO PERFORM 


PUSH 


AX 




IN 


AL, ODSH 




PUSH 


AX 




MOV 


AL , OFH 




OUT 


ODSH , AL 




IN 


AL, ODBH 




AMD 


AL, 0F7H 




OUT 


ODBH, AL 




IN 


AL, 0D9H 




AND 


AL, 0F7H 




OUT 


0D9H , AL 




MOV 


CX, 6630 


DELAY : 


NOP 




LOOP 


DELAY 




IN 


AL, 0D9H 




OR 


AL, 08H 




OUT 


0D9H , AL 




POP 


AX 




OUT 


0D8H , AL 




POP 

RET 


AX 


END PROC CLS: 








i CLEAR SCREEN OPERATION 

;SAVE VIDEO STATUS 

; BLANK THE SCREEN 

; SET BIT 3 = 0 

; ENABLE CLRSCRN SIGNAL 
; INI T COUNTER FOR TIME DELAY 
;TIME DELAY TO ALLOW VIDEO PROCESSOR 
;TIME TO CLEAR VIDEO MEMORY 

; DISABLE CLRSCRN SIGNAL 
; RESTORE SYSTEM STATUS 



. xxxxxxx^xx^^xxxxxx^xxx^xxxxxx^xxxxxxx^^xx^^x^xxxxxxx^^^x^^^^^xx^x^^^xx^ 

■ PROCEDURE COLOR IS USED TO ENABLE COLOR PLANES TO PROVIDE THE SELECTED 
; COLOR AND THE E SEGMENT REGISTER IS INITIALIZED TO ALLOW WRITING TO 



;THE ENABLED COLOR 


PLANES . 






PROC COLOR; 














POP 


DX 


; SAVE 


RETURN ADDRESS 




POP 


AX 


;GET 


COLOR CODE 




PUSH 


DX 


; RESTORE RETURN ADDRESS 




AMD 


AX, 7 


;MASK 


COLOR CODE TO SET STATUS FLAGS 




JNZ 


COLOR1 








MOV 




'COL PL1 ] 


, 0C000H 


; COLOR IS WHITE 




MOV 




'COL PL2' 


, 0D000H 






MOV 




'COL PL3' 


, 0E000H 






JMP 


EXIT COL 






COLOR1 : 


SUB 


AL , 1 








JNZ 


COLOR2 








MOV 




COL PL1 ' 


, 0C000H 


; COLOR IS CYAN 




MOV 




'COL PL2 ' 


, 0E000H 






MOV 




'COL PL3" 


, 0E000H 






JMP 


I 


•XI T COL 






COLOR2 : 


SUB 


AL, 1 








JNZ 


C0L0R3 








MOV 




COL PL1 1 


, OCOOOH 


; COLOR IS MAGENTA 




MOV 




'COL PL2* 


, ODOOOH 






MOV 




'COL PL3 " 


, ODOOOH 






JMP 


EXIT COL 






COLOR3 : 


SUB 


AL, 1 








JNZ 


C0L0R4 








MOV 




COL PL1 


, OCOOOH 


; COLOR IS BLUE 




MOV 




'COL PL2 ' 


, OCOOOH 






MOV 




'COL PL3' 


, OCOOOH 






JMP 


1 


EXIT COL' 
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C0L0R4 : 


SUB 


AL, 1 






JNZ 


COLOR5 






MOV 




'COL PL1 ] 


1 , 0D000H 




MOV 




'COL PL21 


, 0E000H 




MOV 




'COL PL3 1 


j , 0E000H 




JMP 


EXIT COL 




COLOR5 : 


SUB 


AL, 1 






JNZ 


COLOR6 






MOV 




'COL PL1] 


, 0E000H 




MOV 




'COL ?L2 J 


, 0E000H 




MOV 




'COL PL3 


, OEOOOH 




JMP 


EXIT COL 




COLORS : 


SUB 


AL, 1 






JNZ 


EXIT COL 






MOV 




'COL PL1 


, 0D000H 




MOV 




'COL PL2 ' 


, 0D000H 




MOV 




'COL PL3' 


, 0D000H 




JMP 


l 


3XIT COL' 




EXIT_COL : 


: MOV 


AL, 73H 






OUT 


0D3H, AL 






RET 








END PROC 


COLOR: 











; COLOR IS YELLOW 



; COLOR IS GR EEN 



; COLOR IS RED 



; DISABLE SIMULTANEOUS WRITE 






PROCEDURE RESET_CURS 
AN (X , Y) POSITION IS 
; ADDRESSES IS CLEARED 
PROC RESET_CURS; 

MOV 

POP 

POP 

POP 

PUSH 

PUSH 

PUSH 

CALL 

CALL 

POP 

CALL 

SUB 

CALL 

SUB 

PUSH 

PUSH 

CALL 

CALL 

POP 

CALL 

SUB 

PUSH 

PUSH 

CALL 

CALL 

POP 

CALL 

ADD 

PUSH 

PUSH 

CALL 

CALL 

POP 

CALL 

ADD 

PUSH 

PUSH 

CALL 

CALL 

POP 

CALL 



IS USED TO ERASE THE GRAPHICS CURSOR 
INPUT TO THE PROCEDURE AND THE A BLOCK OF 
AT THE CURSOR LOCATION 

[SEGMENT_E] , ES ;SAVE SEG E STATUS 



AX 

Y_POS " 

X_POS' 

AX 

X_POS' 

Y_POS ' 
ADJ_SL* 
REL_VID_ADDR 
BX 

BLANKjGCURS 
BX, 1 

BLANKJSCURS 
Y_POS ] , 1 
X_POS 
Y_POS ' 
ADJ_SL~ 
REL_VID_ADDR 
BX 

BLANK_GCURS 
Y_POS] , 1 
X_POS‘ 

Y_POS " 

AD J_SL 
REL_VID_ADDR 
BX 

BLAMK_GCURS 
Y_POS " 

X_?OS’ 

Y_?OS " 

AD J_SL~ 
REL_VID_ADDR 
BX 

BLANK.GCURS 
Y_POS , 1 
X_POS 
Y_POS] 
ADJ_SL 
REL_VID_ADDR 
EX 

BLANK GCURS 



; SAVE RETURN ADDRESS 
;GET Y POSITION 
;GET X POSITION 
; RESTORE RETURN ADDRESS 



; AD JUST Y POSITION TO A DISPLAYABLE 
; S CAN LINE & GET VIDEO ADDRESS 
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MOV ES, [SEGMENT_E] ; RESTORE SEG E 

RET 

END PROC RESETJZURS; 

•PROCEDURE BLAMK_GCURS IS USED BY PROCEDURE RESET_CURS TO ERASE A CURSOR 

PROC BLANK_GCURS ; 

MOV AX, [COL_PLl] 

MOV ES , AX 

SEG ES 

MOV [BX] , 0 

MOV AX, [COL_PL2] 

MOV ES, AX 

SEG ES 

MOV [BX] . 0 

MOV AX, [C0L_PL3] 

MOV ES , AX 

SEG ES 

MOV [BX] , 0 

RET 

END PROC BLANKJ3CURS ; 

•PROCEDURE SET_CURS IS USED TO DISPLAY A CURSOR AT THE INPUT 

? (X , Y ) POSITION. THE GRAPHICS CURSOR DISPLAYED IS A "+" . 

PROC SETJTURS; 

; CALCULATE MEMORY ADDRESS OF NEW CURSOR POSITION 



MOV 


f SEGMENT El, 


ES ; SAVE SEG E STATUS 


POP 


AX 




; SAVE RETURN ADDRESS 


POP 


[Y POS' 




) GET Y POSITION FROM STACK 


POP 


[X POS' 




;GET X POSITION FROM STACK 


PUSH 


AX 




; REPLACE RETURN ADDRESS 


MOV 


DX, ,[Y POS] 




PUSH 


[y.posT 




CALL 


ADJ SL 






POP 


BX 




;GET CORRECTED Y LINE NUMBER 



;THE CURSOR IS MADE 
MOV 
MOV 
MOV 
MOV 
MOV 
SUB 
MOV 
JNS 
MOV 
ADD 

CO : PUSH 

CALL 
POP 
SUB 
MOV 
JNS 
ADD 

Cl : PUSH 

CALL 
POP 
ADD 
PUSH 
CALL 
POP 
ADD 
PUSH 
CALL 
POP 
PUSH 
PUSH 
CALL 



DX 

DX 

BX 

DX 

DX 

2 



AX 



rPUT THE LIME NUMBER INTO 
; EACH OF THE CURSOR ROWS 



UP OF FIVE COMPONENTS LABELED CURS_0 TO CURS_4 
CURSJT 
CURS_1 
CURS_2 
CURS_3 
CURS_4 
CURS_0 

AX, [ CURS_0 ] 

CO 

AX, 3 
CURS 0 
CURSJD 
AD J_SL 
[ CURS_0 
[CURS_1 



1 



AX, [CURS_1 ] 
Cl 

CURS_1' 
CURS_1 * 
ADJ_SL 
CURS_1 
CURS_3 
CURS_3 
ADJ_SL 
CURS_3 
CURS_4 
CURS_4 
AD J_SL 
CURS_4] 
X_POS] 

BX 

REL VID ADDR 



; ADJUST EACH CURSOR ROW TO REFLECT IT 
; DISTANCE FROM CURSOR CENTER POSITION 
; WHICH IS CURS_2 

; THEN CALL PROCEDURE ADJ_SL TO ASSURE 
; THAT EACH CURSOR ROW IS LOCATED ON 
; A DISPLAYABLE SCAN LINE 
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POP 

PUSH 

PUSH 

CALL 

POP 

PUSH 

PUSH 

CALL 

POP 

PUSH 

PUSH 

CALL 

POP 

PUSH 

PUSH 

CALL 

POP 

PUSH 

PUSH 

CALL 

POP 

MOV 

AND 



BX 

X_POS] 
CURS_0] 
REL_VID ADDR 

cursjdT 

X_POS] 
CURS_1] 
RELJ7ID ADDR 
CURS.lJ 
X_POS] 
CURS_2] 
REL_VID ADDR 
CURS_2T 
X_?OS] 
CURS_3] 
REL_VID ADDR 
CURS_3j 
X_POS] 
CURS_4] 
RELJ7ID ADDR 
[ CURS_4j 
AX , [XJPOS] 
AX, 07H 



;GET X POSITION FOR TEST 
; CALCULATE CURSOR BIT POSITION IN ADDR 



;DRAW THE CURSOR BASED ON CURSOR CENTER BIT POSITION WITHIN A BYTE 
; THI S SPLITS THE CURSOR ACROSS BYTE BOUNDARIES FOR FULL SCREEN COVERAGE 

;TEST FOR CURSOR IN X PIXEL POS. 0 



BIT1 



BIT2: 



JNZ 


BIT1 


MOV 


AL , 3 


MOV 


BX, [CURS 2] 


SUB 


BX, 1 


CALL 


DISP GCURS 


MOV 


AL, OEOH 


ADD . 


BX, 1 


CALL 


DISP GCURS 


MOV 


AL, 80H 


MOV 


BX, [CURS 0] 


CALL 


DISP GCURS 


MOV 


BX, "[CURS 1] 


CALL 


DISP GCURS 


MOV 


BX, ICURS 3] 


CALL 


DISP GCURS 


MOV 


BX, "[CURS 4] 


CALL 


DISP GCURS 


JMP 


EXIT 


SUB 


AL, 1 


JNZ 


BIT2 


MOV 


BX, [CURS 2] 


SUB 


BX, 1 


MOV 


AL, 1 


CALL 


DISP GCURS 


MOV 


AL, OFOH 


ADD 


BX, 1 


CALL 


DISP GCURS 


MOV 


AL, 40H 


MOV 


BX, [CURS 0] 


CALL 


DISP GCURS 


MOV 


BX, Tcurs 1] 


CALL 


DISP GCURS 


MOV 


bx, Tcurs 3] 


CALL 


DISP GCURS 


MOV 


bx, Tcurs 4] 


CALL 


DISP GCURS 


JMP 


EXIT 


SUB 


AL, 1 


JNZ 


BIT3 


MOV 


AL, 0F8H 


MOV 


BX, [CURS 2] 


CALL 


DISP GCURS 


MOV 


AL, 20H 



; DECREMENT BIT COUNT FOR NEXT TEST 
; TEST FOR CURSOR IN X PIXEL POS. 1 



; DECREMENT BIT COUNT FOR NEXT TEST 
;TEST FOR CURSOR IN X PIXEL POS. 2 
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MOV 


BX, [CURS 0] 




CALL 


DISP GCURS 




MOV 


BX, Tcurs 1] 




CALL 


DISP GCURS 




MOV 


bx, Tcurs 3] 




CALL 


DISP GCURS 




MOV 


bx, Tcurs 4] 




CALL 


DISP GCURS 




JMP 


EXIT 


BIT3 : 


SUB 


AL, 1 ; DECREMENT BIT COUNT FOR NEXT TEST 




JNZ 


BIT4 ;TEST FOR CURSOR IN X PIXEL POS . 3 




MOV 


AL, 7CH 




MOV 


BX, [CURS 2] 




CALL 


DISP GCURS 




MOV 


AL, 10H 




MOV 


BX, [CURS 0] 




CALL 


DISP GCURS 




MOV 


bx, Tcurs i] 




CALL 


DISP GCURS 




MOV 


bx, Tcurs 3] 




CALL 


DISP GCURS 




MOV 


bx, Tcurs 4] 




CALL 


DISP 'GCURS 




JM? 


EXIT 


BIT4: 


SUB 


AL, 1 ; DECREMENT BIT COUNT FOR NEXT TEST 




JNZ 


BIT5 ;TEST FOR CURSOR IN X PIXEL POS. 4 




MOV 


AL, 3EH 




MOV 


BX, [CURS 2] 




CALL 


DISP GCURS 




MOV 


AL, 3 




MOV 


BX, [CURS 0] 




CALL 


DISP GCURS 




MOV 


bx, Tcurs i] 




CALL 


DISP GCURS 




MOV 


bx, Tcurs 3] 




CALL 


DISP GCURS 




MOV 


bx, Tcurs 4] 




CALL 


DISP GCURS 




JMP 


EXIT 


BIT5-. 


SUB 


AL, 1 ; DECREMENT BIT COUNT FOR NEXT TEST 




JNZ 


BIT6 ;TEST FOR CURSOR IN X PIXEL POS. 5 




MOV 


AL, 1FH 




MOV 


BX, [CURS 2] 




CALL 


DISP GCURS 




MOV 


AL, 4 




MOV . 


BX, [CURS 0] 




CALL 


DISP GCURS 




MOV 


bx, Tcurs i] 




CALL 


DISP GCURS 




MOV 


bx, Tcurs 3] 




CALL 


DISP GCURS 




MOV 


bx, Tcurs 4] 




CALL 


DISP GCURS 




JMP 


EXIT 


BIT6: 


SUB 


AL, 1 ; DECREMENT BIT COUNT FOR NEXT TEST 




JNZ 


BIT7 ;TEST FOR CURSOR IN X PIXEL POS. 6 




MOV 


AL, OFH 




MOV 


BX, [CURS 2] 




CALL 


DISP GCURS 




MOV 


AL, 30H 




ADD 


BX, 1 




CALL 


DISP GCURS 




MOV 


AL, 2 




MOV 


BX, [CURS 0] 




CALL 


DISP GCURS 




MOV 


bx, Tcurs i] 




CALL 


DISP GCURS 




MOV 


bx, Tcurs 3] 




CALL 


DISP GCURS 
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BIT7 



EXIT: 



MOV 


BX, [CURS 4] 


CALL 


DISP GCURS 


JMP 


EXIT 


MOV 


AL, 7 


MOV 


BX, [CURS 2] 


CALL 


DISP GCURS 


MOV 


AL, OCOH 


ADD 


BX, 1 


CALL 


DISP GCURS 


MOV 


AL, 1 


MOV 


BX, [CURS 0] 


CALL 


DISP GCURS 


MOV 


BX, Tcurs 1] 


CALL 


DISP GCURS 


MOV 


bx, Tcurs 3] 


CALL 


DISP GCURS 


MOV 


bx, Tcurs 4] 


CALL 


DISP GCURS 


MOV 


ES, TSEGMEMT E] 


RET 



/RESTORE SEG E 



END PROC SETJZURS* 

; PROCEDURE DISP_GCURS IS USED BY PROCEDURE SET_CURS TO DISPLAY A CURSOR 
PROC DISPJ5CURS/ 

DX , [COL_PLl] 

ES, DX 
ES 

[BX] AL 
DX, [ COL_PL2] 

ES, DX 
ES 

[BX] , AL 
DX, [ COL_PL3 ] 

ES, DX 

fix] , AL 



MOV 
MOV 
SEG 
OR 
MOV 
MOV 
SEG 
OR 
MOV 
MOV 
SEG 
OR 
RET 

END PROC DISP.GCURS: 

•PROCEDURE ADJ_SL IS USED TO CORRECT Y POSITION TO INSURE 

/THAT IT OCCURS ON A DISPLAYABLE SCAN LINE 
PROC ADJ SL: 

/SAVE RETURN ADDRESS 
/GET Y POSITION 



“ 


POP 


[RET ADJ SL1 




POP 


BX 




MOV 


AX, BX 


TST_Y : 


SUB 


AX, 9 




JNS 


ADJ Y 




JMP 


EXIT SL 


ADJ_Y : 


ADD 


BX, 7 




JMP 


TST Y 


EXIT_SL : 


PUSH 


BX 




PUSH 

RET 


[RET ADJ SL] 



/RETURN CORRECTED Y POSITION 
/RESTORE RETURN ADDRESS 

END PROC AD J_SL • 






•PROCEDURE REL_VID_ADDR ACCEPTS X AMD Y SCREEN COORDINATES AND CONVERTS 
; THEM TO A BYTE ADDRESS IN MEMORY CORRESPONDING TO THE X Y POSITION 



PROC REL VID ADDR/ 
POP 


[RET RVA] 


;SAVE RETURN ADDRESS 


POP 


BX 


;GET Y POSITION 


TEST 


BX, 8000H 


;TEST FOR Y < 0 


JNS 


TST YUPR 


MOV 


BX, 0 




TST YUPR : MOV 


AX, 376 


;TEST FOR Y > 376 


SUB 


AX, BX 


JNS 


Y IN BND 





4S 



MOV 


BX, 376 




MOV 


AX, 80H 


/PUT SCALE FACTOR IN AX 


MUL 


BX 


/AMD SCALE Y BASED ON LINE NUMBER 


POP 


BX 


/GET X POSITION 


TEST 


BX, 8000H 


/TEST FOR X < 0 


JNS 


TST XUPR 


MOV 


BX, 0 




MOV 


DX, 639 


/TEST FOR X > 639 


SUB 


DX, BX 


JNS 


X IN BND 




MOV 


BX, 639 




MOV 


CL, 3 


/AND DETERMINE BYTE X OFFSET 


SHR 


BX, CL 


/BY DIVIDING X POSITION BY 3 


ADD 


BX, A*X 


/ADD X OFFSET TO GET BYTE ADDRESS 


PUSH 


BX 


/RETURN RELATIVE BYTE ADDRESS 


PUSH 


[RET_RVA] 


/RESTORE RETURN ADDRESS 


RET 



Y IN BND : 



TST XUPR: 



X IN BND: 



END PROC RELJ/ID^ADDR; 

. xxxxxx^Hxx^^xxxxxxx^x^xx^xxtc^xxx^^xx^xxxxx^x^ 

•LINE DRAWING PROCEDURE WITH COLOR MIXING FOR CROSSING LINES 

PROC DRAWJILINE; 

POP [RET_DHL‘ 

MOV [COLJIIX], 

CALL DRAWWJLINE 

PUSH [RET_DHL] 

RET 

END PROC DRAWJ-ILINE; 

. ^^^^^x^xitxxx^xxxxxxxxxx^^xx^^A^^^xxxxxxxxx^xxxxxxxxxx^x^xxxxxx^x^ 

•LIME DRAWING PROCEDURE WITHOUT COLOR MIXING FOR CROSSING LINES 

PROC DRAW_LINE/ 

POP [RET_DML* 

MOV [COL_MIX], 

CALL DRAWW_LINE 

PUSH [RET_DML] 

RET 

END PROC DRAWJLINE: 

. XX^XXX^^XX^XXXXXXXX^^^X^^XX^X^X^^X^^X^^XX^^XX^^X^X^^XX^XX^^^^^X^XXX^^/*:^ 

,XXXXX>:^XAXXXXXXXXXX^AX^^XXXXX XXXXXXX^XXXXXX^XX7CXXXX^XXXXA^XXXX^XXXX^X^X 

•PROCEDURE DRAWW_LINE PROVIDES PRIMITIVE LINE DRAWING CAPABILITIES 



; SAVE RETURN ADDRESS 
; ENABLE COLOR MIXING 
; GO DRAW THE LINE 
; RESTORE RETURN ADDRESS 



; SAVE RETURN ADDRESS 
/DISABLE COLOR MIXING 
; GO DRAW THE LINE 
/RESTORE RETURN ADDRESS 



/THE SUBROUTINE ACCEPTS AS 
/(X, Y) COORDINATES 
PROC DRAWW_LINE / 

MOV 
PUSH 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 



INPUT A PAIR OF ENDPOINTS IDENTIFIED BY 



SP 



BX 

BX 



BP, 

DS 

BX, [BP+3] 

[XJ5TART] . 

BX, [BP+6J 
[Y^START] , 

BX, [BP+4] 

[X_END] , BX 
AX, [BP+2 ] 

[Y_END] , AX 

/TEST ORDERING OF Y COORDINATES. THE ALGORITHM EXPECTS TO FIND THE Y 
/COORDINATE IN INCREASING ORDER OR 0. 



/GET X START FROM STACK 
/GET Y START FROM STACK 
/GET X END FROM STACK 
/GET Y END FROM STACK 



STO DY: 



MOV 

SUB 

JNS 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

SUB 

MOV 



AX, 

AX, 



STO_DY 
AX , 

EX, 



Y_END J 
Y_START] 



X_START] 
X_END] 

X_ST ART] , BX 
X_END ] , AX 
AX, [Y_START] 
BX, [Y_END] 
’Y_START ] , BX 
Y_END], AX 
AX, BX 

[DELTAJY], AX 



/JUMP IF Y ORDERING OK 
/ELSE SWAP START AND END COORD. 
/SO Y START VALUE IS LTE Y END 
/VALUE. THEN CALCULATE DELTA Y. 
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TSTJDY: 
CASE_1 : 

C_2 — 0R_3 
CASE_2 : 

CJZASE2: 

DR_C2 : 
DR_C2C : 

CASE_2C: 

CASE 3: 



MOV 

SUB 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

PUSH 

PUSH 

CALL 

TEST 

JNS 

JMP 

TEST 

JNZ 

SUB 

ADD 

PUSH 

PUSH 

CALL 

SUB 

JMS 

JMP 

MOV 

SUB 

JNS 

JMP 

MOV 

MOV 



AX, 

AX, 

[DEL 1 



X_END] 
X_START] 



X 



AX 

1 

0 



INC_CTR 
’L_ERROR 
AX, [X START] 
[X_POSj, AX 
AX, [Y START] 

'y_posT, ax 

*X_POS’ 

' Y_POS * 

LIME_SEG 
[DELTA_X] , 8000H 
T5T_DY 
TST_DYZ 

[DELTA _Y] , 7FFFH 
C_2_OR_3 
'DELTA X] , 1 

’x_posT, l 

‘X_POS‘ 

’ Y_?OS 
LINE_SEG 
[ DELTA _X] , 1 
CASE_2 
EXIT DL 

AX, Tdelta_x' 

AX, [DELTA_Y' 
CASE_2 
CASE 3 

AX, Idelta_x] 

[ END_CNT ] , AX 



; CALCULATE DELTA X 



; PLOT FIRST POINT 
; TEST FOR NEGATIVE SLOPE 

;TEST FOR DELTA Y = 0 

;DRAW LIME FOR SPECIAL CASE WHERE 
; DX > 0 AND DY = 0 

; DX > 0 AND DY > 0 
; DX >= DY 



MOV 

ADD 

JNZ 

JMP 

MOV 

MOV 

DIV 

SUB 



BX, [DELTA_Y] 
BX, 1 
C_CASE2 
DR_C2 

AX, [DELTA_X] 
DX, 0 
BX 

[L_ERROR] , AX 



; ADD IN CORRECTION FACTOR FOR 

; SMOOTHING 

;CORR = DX/(DY+1) 



; IN IT ERROR VAL. WITH CORR . FACT. 



MOV 

SUB 

JNS 

JMP 

TEST 

JMS 

ADD 

PUSH 

PUSH 

CALL 

MOV 

ADD 

MOV 

ADD 

JMP 

ADD 

ADD 

PUSH 

PUSH 

CALL 

MOV 

ADD 

SUB 

MOV 

ADD 

JMP 

MOV 

MOV 



AX, [END_CNT 
AX, INC_CTR 
DR_C2C 
EXITJDL 

[L_ERROR] , 8000H 
CASE_2C 
'X_POS 
'X_POS 
’ Y_POS 
LINE SEG 

AX, Tl_error 

AX, [DELTA_Y 
‘L_ERRORl , AX 
' IMC — CTR 
DR_C2 
tx_pos], l 

* Y_POS I , 1 
‘X_POS 
Y_POS 
LINE_SEG 
AX, 



AX, 

AX, 



L_ERROR 
DELTA_Y 
DELTA_X 
AX 



"L_ERROR 
INC_CTR 
DR_C2 
AX, [DELTA_Y] 
[END_CMT] , AX 



; TEST INCREMENT COUNTER 



;TEST IF ERROR < 0 
; ERROR < 0 



; ERROR >= 0 



;DY > DX 
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C_CASE3 : 

DR_C3 : 
DR_C3C: 

CASE_3C : 

TST_DY2 : 
CASE_4 : 

C_5_0R_6 : 
CASE_5 : 

r 

C_CASE5: 
DR C5: 



MOV 

ADD 

JM2 

JMP 

MOV 

MOV 

DIV 

MOV 



BX, [DELTA_X] 
BX , 1 
C_CASE3 
DR_C3 

AX, [DELTA. Y] 
DX, 0 
3X 

[L_ERROR] , AX 



; ADD IN CORRECTION FACTOR FOR 

; SMOOTHING 

;CORR = DY/(DX+1) 



; INIT ERROR VAL. WITH CORR, FACT. 



MOV 

SUB 

JNS 

JMP 

TEST 

JNS 

ADD 

ADD 

PUSH 

PUSH 

CALL 

MOV 

SUB 

ADD 

MOV 

ADD 

JMP 

ADD 

PUSH 

PUSH 

CALL 

MOV 

SUB 

MOV 

ADD 

JMP 

TEST 

JNZ 

MOV 

SUB 

MOV 

SUB 

PUSH 

PUSH 

CALL 

SUB 

JNS 

JMP 

MOV 

SUB 

SUB 

JNS 

JMP 

MOV 

SUB 

MOV 



END_CNT 
INC CTR 



AX, 

AX, 

dr_c3c 

EXIT_DL 
[L_ERROR] , 
CASE 3C 



8000H 



X_POS 
Y_POS 
*X_POS 
[ Y_POS 
LINE_SEG 
AX, 

AX, 

AX, 



L_ERROR 
DELTA_X 
DELTA_Y 
AX 



L_ERROR 
’ INC_CTR 
DR_C3 
Y_POS 
'X_POS 
* Y_POS 
LINE SEG 

AX, Tl_error 

AX, [DELTA_X 
’L.ERROR], AX 
’INC.CTRJ, 1 
DR_C3 

[DELTA_Y] , 7FFFH 
C_5_OR_6 
AX, OFFFFH 
AX, [DELTA^X] 
"DELTA X] , AX 

■x.pos" ‘ 

'X_POS 
’ Y_POS 
LINE_SEG 
[DELTA_X] , 1 
CASE_4 
EXIT^DL 
AX, 0 

AX, [DELTA_X 
AX, [DELTA.Y 
CASE_5 
CASE_6 
AX, 0 

AX, [DELTA^X] 
[END.CNT], AX 



;TEST INCREMENT COUNTER 

; TEST FOR ERROR < 0 
; ERROR < 0 



; ERROR >= 0 



;TEST FOR DY > 0 

; PROCESS SPECIAL CASE WHERE DX < 
; AND DY = 0 



; CASE 3 OR 4. DX < 0 & DY > 0 
;DY <= ABS (DX) 



0 



MOV 


BX, [DELTA Y] 


ADD 


BX, 1 


JNZ 


C CASE 5 


JMP 


DR C5 


MOV 


AX, 0 


SUB 


AX, [DELTA X] 


MOV 


DX, 0 


DIV 


BX 


SUB 


[L ERROR] , AX 



; ADD IN CORRECTION FACTOR FOR 

; SMOOTHING 

;CORR = DX/(DY+1) 



; INIT ERROR WITH CORR. FACT. 



MOV 

SUB 



AX, [END.CNT 
AX, [INC.CTR 



;TEST INCREMENT COUNTER 
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DR_C5C: 

CASE_5C: 

CASE_6: 

t 

C_CASE6 : 

DR_C6 : 
DR_C6C : 

CASE_6C: 
EXIT DL: 



JNS 

JMP 

TEST 

JNS 

SUB 

PUSH 

PUSH 

CALL 

MOV 

ADD 

MOV 

ADD 

JHP 

SUB 

ADD 

PUSH 

PUSH 

CALL 

MOV 

ADD 

ADD 

MOV 

ADD 

JHP 

MOV 

MOV 

MOV 

SUB 

JNZ 

JHP 

MOV 

MOV 

DIV 

MOV 

MOV 

SUB 

JNS 

JMP 

TEST 

JNS 

SUB 

ADD 

PUSH 

PUSH 

CALL 

MOV 

ADD 

ADD 

MOV 

ADD 

JHP 

ADD 

PUSH 

PUSH 

CALL 

MOV 

ADD 

MOV 

ADD 

JMP 

POP 

POP 

POP 

POP 

POP 

POP 

PUSH 



DR_C5C 

EXIT_DL 

[L_ERROR], 8000H ;TEST IF ERROR < 
CASE 5C 



XJPOS' 
XJPOS' 
Y_POS ' 
LINE SEG 



; ERROR < 0 



AX, jLJE 
AX, [DEI 



ERROR 
DELTAJY 
L_ERROR 
INC_CTR 
DR_C5 
POS' 



AX 

1 



Y_POS 
X_POS 
Y_POS 
LINE_SEG 
AX, 

AX, 



; ERROR >= 0 



AX, 



L_ERROR 
DELTA_X 
DELTA_Y 
AX 



L_ERROR 
INC_CTR 
DR_C5 
AX, [DELTA_Y] 
[END_CNT] , AX 

BX, 1 

BX, [DELTA_X] 

C_CASE6 

DR_C6 

AX, [DELTA_Y] 
DX, 0 
BX 

[L_ERROR] , AX 



END_CNT 
INC CTR 



AX, 

AX, 

dr_c6c 

EXIT_DL 
[L_ERROR] , 
CASE 6C 



; ABS (DX) < DY 



; ADD IN CORRECTION FACTOR FOR 

; SMOOTHING 

;CORR = DY/(DX+1) 



; INIT ERROR WITH CORR. FACT. 
;TEST INCREMENT COUNTER 



X_POS 
Y_POS ' 
X_POS' 
Y_POS ' 
LINE SEG 



8000H ;TEST FOR ERROR < 0 
; ERROR < 0 



AX, 

AX, 

AX, 



L_ERROR 
DELTA_X 
DELTAJT 
AX 



L_ERROR 
INCJZTR 
DR_C6 
YJPOS 
X_POS 
Y_POS 
LINE SEG 
AX, TL_ERROR 
AX, [DELTA_X 
’L_ERROR] , AX 
‘INC_CTRJ, 1 
DR_C6 
DS 
AX 
BX 
BX 
BX 
BX 
AX 



; ERROR >= 0 



; PREPARE TO EXIT PROCEDURE BY 
; RESTORING REGISTERS AND THEN 
; REMOVE INPUT PARAMETERS 
; FROM STACK 
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RET 

END PROC DRAWW_LINE; 

.AAAXXXXXAXXXAXX^XXX^XAAXX^^AAA^AAAXAAA^XX^XXXAAXXXAX^ 

•PROCEDURE LINE_SEG ACCEPTS AS INPUT AN X AND Y POSITION AND CONVERTS 
;THE POSITION INTO DISPLAYAELE PIXEL DATA 
PROC LINE_SEG; 

“7 ; SAVE SEG E STATUS 

|R] ; ENABLE SELECTED COLOR 
;SAVE RETURN ADDRESS 
; CONVERT Y POS . TO DISPLAYABLE S.L. 
; USE X & Y TO CALC REL . BYTE ADDR. 

; EX REGISTER HOLDS REL. BYTE ADDR. 

; MOV X POSITION TO AX REGISTER AND 
; CALCULATE X BIT POSITION WITHIN A 
; BYTE FOR DISPLAY PURPOSES 



XBIT1 : 



XBIT2 : 

XBIT3 : 

XBIT4 : 

XBIT5: 

XBIT6 : 

XBIT7 : 

OUT LIME: 



LSC MIX: 



MOV 


[SEGMENT El, 


MOV 


ES, [COL PL ; 


POP 


[RET LS] 


CALL 


ADJ SL 


CALL 


REL VID ADDR 


POP 


BX 


MOV 


AX, [X POS] 


AND 


AX, 7 


JNZ 


XBIT1 


MOV 


DL, 80H 


MOV 


CL, 7FH 


JMP 


OUT LINE 


SUB 


AL, 1 


JNZ 


XBIT2 


MOV 


DL, 40H 


MOV 


CL, OBFH 


JMP 


OUT LIME 


SUB 


AL, 1 


JNZ 


XBIT3 


MOV 


DL, 20H 


MOV 


CL, ODFH 


JMP 


OUT LINE 


SUB 


AL, 1 


JNZ 


XBIT4 


MOV 


DL, 10H 


MOV 


CL, OEFH 


JMP 


OUT LINE 


SUB 


AL, 1 


JNZ 


XBIT5 


MOV 


DL, 8 


MOV 


CL, 0F7H 


JMP 


OUT LINE 


SUB 


AL, 1 


JNZ 


XBIT6 


MOV 


DL, 4 


MOV 


CL, OFBH 


JMP 


OUT LINE 


SUB 


AL, 1 


JNZ 


XBIT7 


MOV 


DL, 2 


MOV 


CL, OFDH 


JMP 


OUT LINE 


MOV 


DL, 1 


MOV 


CL, OFEH 


CMP 


[COL MIX] , 1 


JNS 


LSC MIX 


MOV 


AX, 0C000H 


MOV 


ES , AX 


SEG 


ES 


AND 


[BX] , CL 


MOV 


AX, 0D000H 


MOV 


ES, AX 


SEG 


ES 


AND 


[BX] , CL 


MOV 


AX, 0E000H 


MOV 


ES, AX 


SEG 


ES 


AND 


[BX], CL 


MOV 


AX, [COL PL1 


MOV 


ES, AX 


SEG 


ES 


OR 


[BX], DL 



;TEST IF MIXING ENABLED 

; CLEAR SELECTED LOCATION IN ALL 
; COLOR PLANES IF NO MIXING 



; SELECT E SEGMENT FOR ADDRESSING OF 
; VI DEO OUTPUT THEN OUTPUT A BYTE 
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MOV 


AX, [COL PL2] 


MOV 


ES, AX 


SEG 


E5 


OR 


[BX] DL 


MOV 


AX, COL PL3] 


MOV 


ES, AX 


SEG 


ES 


OR 




[BX] , DL 
’RET LSI 


PUSH 




MOV 

RET 


ES, {SEGMENT,: 



; RESTORE RETURN ADDRESS 
; RESTORE SEG E 

END PROC LINE^SEG; 






; PROCEDURE CIRCLE INPUTS X & Y COORDINATES OF THE CIRCLE CENTER 
; AND A RADIUS VALUE. IT THEN DRAWS A CIRCLE. 

PROC CIRCLE; 



MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

SHL 

MOV 

SUB 

MOV 

CIRC_LP : MOV 

SUB 
JNS 
POP 
POP 
POP 
POP 
PUSH 
RET 



BP , SP 

"BP+6] 
[X_CTR] , AX 
AX, 

[Y_C 
DX, 

'Y_RELJ 
' X_REL ' 

CL, 1 
DX, CL 
AX, 3 
AX, DX 
[P_VAL] 

AX, 

AX, 

DR_CIRC 
AX 



BP+4] 
R] , AX 
3P+2 ] 

_ ’ DX 



AX 
Y,REL' 
X REL' 



BX 

BX 

BX 

AX 



;GET X CENTER COORDINATE OFF STACK 

;GET Y CENTER COORDINATE OFF STACK 

;GET RADIUS VALUE AND SET 
; INITIAL VALUES FOR X AND Y COORD. 



;TEST IF FINISHED DRAWING CIRCLE 
; REMOVE INPUT PARAMETERS FROM STACK 
;EXIT SUBROUTINE 



; POINTS ON CIRCLE ARE PLOTTED IN GROUPS OF 8 WITH THE Y COORDINATE 
; SCALED BY 1/2 TO COMPENSATE FOR X:Y RATIO IN THE DISPLAY 
DR,CIRC: MOV AX, fX_CTRl ; CALCULATE POINT 1 



MOV 


AX, [X 


CTR' 




MOV 


DX, [X" 


"rel; 




ADD 


AX, DX 






MOV 


[X POS] 


, AX 


PUSH 


AX 






MOV 


> 

>c 

l 

so 

to 

r* 


MOV 


CL, 1 






SHR 


AX, CL 






ADD 


AX, [Y_CTR1 


PUSH 


AX 






CALL 


ADJ SL 






POP 




'Y POS' 






PUSH 




’Y POS' 






CALL 


REL VID ADDR 


PUSH 


[X POSl 


1 




CALL 


CIR PIXEL 




MOV 


AX, [X 


CTR' 




MOV 


DX, LX" 


Irel; 




SUB 


AX, DX" 






MOV 


[X POS] 


, AX 


PUSH 


AX 






PUSH 


[Y POSl 




CALL 


REL VID ADDR 


PUSH 


[X POSl 


1 




CALL 


CIR PIXEL 




PUSH 


[X POS] 


1 




MOV 


BX, [Y_REL] 



rPLOT (X_CENTER+X, YjCENTER+Y) 
; CALCULATE POINT 2 



; PLOT (X_CENTER-X , Y_CENTER+Y) 
: CALCULATE POINT 3 
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MOV 

SHR 

MOV 

SUB 

PUSH 

CALL 

POP 

PUSH 

CALL 

PUSH 

CALL 

MOV 

MOV 

ADD 

MOV 

PUSH 

PUSH 

CALL 

PUSH 

CALL 

MOV 

MOV 

ADD 

MOV 

PUSH 

MOV 

MOV 

SHR 

ADD 

PUSH 

CALL 

POP 

PUSH 

CALL 

PUSH 

CALL 

MOV 

MOV 

SUB 

MOV 

PUSH 

PUSH 

CALL 

PUSH 

CALL 

PUSH 

MOV 

MOV 

SHR 

MOV 

SUB 

PUSH 

CALL 

POP 

PUSH 

CALL 

PUSH 

CALL 

MOV 

MOV 

ADD 

MOV 

PUSH 

PUSH 

CALL 

PUSH 

CALL 



CL, 


1 


BX, 


CL 


AX, 


[Y CTR] 


AX , 


BX 


AX 




ADJ 


SL 


'Y 


P0S‘ 




*Y 


POS' 





REL_VID_ADDR 

[X_POS] 

CIR PIXEL 



X_CTR 
X_REL 
DX 

AX 



AX, 

DX, 

AX, 

[X_POSf 
AX 

[ Y_POS ] 
REL_VID_ADDR 
[X_POS] 
CIR_PIXEL 
AX, [ X_CTR 
DX, [Y_REL' 
AX, DX 
[X_POS], AX 
AX 

AX, [X_REL] 
CL, 1 
AX, CL 
AX, [Y_CTR] 
AX 

ADJ_SL 
’ Y_POS 
’ Y_POS * 

REL_VID_ADDR 
[X_POS] 
CIR_PIXEL 
AX, [X_CTR 
DX, [Y_REL” 
AX, DX 
[X.POS] , AX 
AX 

[Y_POS] 
REL_VID_ADDR 
[X_POS ] 

CIR_ PIXEL 
[X_POS] 

BX, [X_REL] 
CL, 1 
BX, CL 
AX, [Y_CTR] 
AX, BX 
AX 

AD J_SL 
’ Y_POS 
’ Y_POS ' 
REL_VID_ADDR 
[X_POS] 
CIR_PIXEL 
AX, [X_CTR 
DX, [Y_REL' 
AX, DX 
[X_POS], AX 
AX 

[Y_POS] 

REL_VID_ADDR 

[X_POS] 

CIR PIXEL 



;PLOT (X_CENTER-X , Y_CENTER-Y) 
; CALCULATE POINT 4 



;PLOT ( X_CENTER+X , Y_CENTER-Y) 
; CALCULATE POINT 5 



; PLOT (X_CENTER+Y , Y.CENTER+X) 
/CALCULATE POINT 6 



/PLOT (X_CENTER-Y, Y_CENTER+X) 
/CALCULATE POINT 7 



/PLOT (X_CENTER-Y, Y_CENTER-X) 
/CALCULATE POINT 8 



/PLOT (X_CENTER+Y , Y_CENTER-X) 



TEST [ P_VAL ] , 8000H /TEST P FOR NEGATIVE VALUE 



00 



P DECY: 



JMS 


P DECY 




MOV 


CL, 2 




MOV 


AX, | 


[X_REL] 


SHL 


AX, CL 




ADD 


AX, 6 




ADD 




'? VAL* 


, AX 


ADD 




‘X REL" 


, 1 


JMP 


CIRC 


LP 


MOV 


cl, ; 


? 




MOV 


AX, 


r x 


REL' 


SUB 


AX, 


’Y" 


“rel; 


SHL 


AX, ( 


:l~ 




ADD 


AX, 10 




ADD 




'P VAL' 


, AX 


SUB 




'Y REL' 


, 1 


ADD 




*X REL' 


, 1 


JMP 


CIRC 


LI 


3 



; P := P + (4 * X) + 6 



; INCREMENT X COUNT 

?P := P + 4 * (X - Y) + 10 



; DECREMENT 
; INCREMENT 



COUNT 

COUNT 



END PROC CIRCLE; 

ACCEPTS AS INPUT A RELATIVE BYTE ADDRESS AND AN 
AND SETS THE CORRESPONDING PIXEL 



; PROCEDURE CIR_?IXEL AC 
; X COORDINATE POSITION 



PROC CIR. 


PIXEL ; 
MOV 
POP 
POP 


I 


'SEGMENT E' 
'RET CPET 
)X 




POP 


BX 




AMD 


DX, 7 




JNZ 


CPBIT1 




MOV 


AL, 30H 




MOV 


CL, 7FH 




JMP 


CPIX ON 


CPBIT1 : 


SUB 


DL, 1 




JNZ 


CPBIT2' 




MOV 


AL, 40H 




MOV 


CL, OBFH 




JMP 


CPIX ON 


CPBIT2 : 


SUB 


DL, 1 




JNZ 


CPBIT3 




MOV 


AL, 20H 




MOV 


CL, ODFH 




JMP 


CPIX ON 


CPBIT3 : 


SUB 


DL, 1 




JNZ 


CPBIT4 




MOV 


AL, 10H 




MOV 


CL, OEFH 




JMP 


CPIX ON 


CPBIT4 : 


SUB 


DL, 1 




JNZ 


CPBIT5 




MOV 


AL, 3 




MOV 


CL, 0F7H 




JMP 


CPIX ON 


CPBIT5: 


SUB 


DL, 1 




JNZ 


CPBIT6 




MOV 


AL, 4 




MOV 


CL, OFBH 




JMP 


CPIX ON 


CPBIT6: 


SUB 


DL, 1 




JNZ 


CPBIT7 




MOV 


AL, 2 




MOV 


CL, OFDH 




JMP 


CPIX ON 


CPBIT7 : 


MOV 


AL, 1 




MOV 


CL, OFEH 


CPIX_ON : 


MOV 


DX, 0C000H 




MOV 


ES, DX 




SEG 


ES 




AND 

MOV 


[BX] , CL 
DX, 0D000H 



ES ; SAVE SEG E STATUS 
;SAVE RETURN ADDRESS 
;GET X POSITION 
; GET RELATIVE BYTE ADDRESS 



7 CLEAR ALL COLOR PLANES AT SELECTED 
; PIXEL LOCATION BEFORE SETTING 
;PIXEL TO DESIRED COLOR 
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MOV 

SEG 

AMD 

MOV 

MOV 

SEG 

AMD 

MOV 

MOV 

SEG 

OR 

MOV 

MOV 

SEG 

OR 

MOV 

MOV 

SEG 

OR 

PUSH 

MOV 

RET 

EMD PROC CIR_PIXEL; 



ES, DX 
ES 

[BX] , CL 
DX, OEOOOH 
ES, DX 
ES 

[BX] , CL 
DX, [COL_PLl ] ; 
ES , DX 
ES 

[BX] , AL 
DX, [COL_PL2] 
ES, DX 

fix] , AL 
DX, [COL_PL3] 
ES, DX 
ES 

'BX] , AL 
'RET CPE] 

ES, ISEGMENT_E] 



SET PIXEL TO DESIRED COLOR 



; RESTORE SEG E 






/PROCEDURE SET_PIXEL 
/CORRESPONDING PIXEL 
PROC SET_PIXEL / 



ACCEPTS AS INPUT AN (X,Y) COORDINATE AND SETS THE 
TO THE SYSTEM COLOR 



PBIT1 



PBIT2: 



PBIT3 : 



PBIT4 : 



PBIT5: 



PBIT6 : 



MOV 


BP, SP 


MOV 




'SEGMENT E], 


POP 




'RET SPET 


MOV 


AX, [BP+4] 


MOV 


[X POS] , AX 


CALL 


ADJ SL 


CALL 


REL VID ADDR 


POP 


BX 


MOV 


DX, [X POS] 


AMD 


DX, 7 


JM2 


PBIT1 


MOV 


AL, 30H 


MOV 


CL, 7FH 


JMP 


PIX ON 


SUB 


DL, 1 


JNZ 


PBIT2 


MOV 


AL, 40H 


MOV 


CL, OEFH 


JMP 


PIX ON 


SUB 


DL, 1 


JNZ 


PBIT3 


MOV 


AL, 20H 


MOV 


CL, ODFH 


JMP 


PIX ON 


SUB 


DL, 1 


JNZ 


PBIT4 


MOV 


AL, 10H 


MOV 


CL, OEFH 


JMP 


PIX ON 


SUB 


DL, 1 


JNZ 


PBIT5 


MOV 


AL, 8 


MOV 


CL, 0F7H 


JMP 


PIX ON 


SUB 


DL, 1 


JNZ 


PBIT6 


MOV 


t 


\L, 4 


MOV 


CL, OFBH 


JMP 


PIX ON 


SUB 


DL, i 


JNZ 


PBIT7 



ES /SAVE ES STATUS 

/SAVE RETURN ADDRESS 
/GET X POSITION 



/GET RELATIVE BYTE ADDRESS 
/MAKE A BIT MASK 
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PBIT7 : 
PIX ON: 



MOV 


AL, 2 


MOV 


CL, OFDH 


JMP 


PIX OM 


MOV 


AL, 1 


MOV 


CL, OFEH 


MOV 


DX, 0C000H 


MOV 


ES, DX 


SEG 


ES 


AND 


[BX] , CL 


MOV 


DX, 0D000H 


MOV 


ES, DX 


SEG 


ES 


AMD 


[BX] , CL 
DX, 0E000H 


MOV 


MOV 


ES, DX 


SEG 


ES 


AND 


[BX] , CL 
DX, [COL PL1 ] 


MOV 


MOV 


ES, DX 


SEG 


ES 


OR 


[BX] , AL 


MOV 


DX, [COL PL2] 


MOV 


ES, DX 


SEG 


ES 


OR 


[BX], AL 


MOV 


DX, [COL PL3] 


MOV 


ES, DX 


SEG 


ES 


OR 




'BX] , AL 


PUSH 




'RET SPE] 


MOV 

RET 


I 


IS, "[SEGMENT ] 



; CLEAR ALL COLOR PLANES AT SELECTED 
; PIXEL LOCATION BEFORE SETTING 
; PIXEL TO NEW COLOR 



; SET PIXEL TO DESIRED COLOR 



; RESTORE RETURN ADDRESS 
; RESTORE SEGMENT E 

END PROC SET^PIXEL; 

•PROCEDURE RESET_PIXEL ACCEPTS AS INPUT AN (X,Y) COORDINATE AND RESETS 
;THE CORRESPONDING PIXEL BY WRITING "0" TO ALL COLOR PLANES 
PROC RESET_PIXEL ; 





MOV 


BP, SP 




MOV 




[SEGMENT E] , 




POP 




'RET RPET 




MOV 


AX, [BP+4] 




MOV 


[X POS] , AX 




CALL 


ADJ SL 




CALL 


REL VID ADDR 




POP 


BX 




MOV 


DX, [X POS] 




AMD 


DX, 7 




JN2 


RBIT1 




MOV 


AL, 7FH 




JMP 


PIX OFF 


RBIT1 : 


SUB 


DL, 1 




JNZ 


RBIT2 




MOV 


AL, OBFH 




JMP 


PIX OFF 


RBIT2 : 


SUB 


DL, 1 




JNZ 


R3IT3 




MOV 


AL, ODFH 




JMP 


PIX OFF 


RBIT3 : 


SUB 


DL, 1 




JNZ 


RBIT4 




MOV 


AL, OEFH 




JMP 


PIX OFF 


RBIT4 : 


SUB 


DL, 1 




JNZ 


R3IT5 




MOV 


AL, 0F7H 




JMP 


PIX OFF 


RBIT5 : 


SUB 


DL, 1 




JNZ 


RBIT6 



ES ; SAVE ES STATUS 

; SAVE RETURN ADDRESS 
;GET X POSITION 



;GET RELATIVE BYTE ADDRESS 
;MAKE A BIT MASK 



5S 



RBIT6 : 



RBIT7 : 
PIX OFF: 



MOV 

JMP 

SUB 

JMZ 

MOV 

JMP 

MOV 

MOV 

MOV 

SEG 

AMD 

MOV 

MOV 

SEG 

AND 

MOV 

MOV 

SEG 

AND 

PUSH 

MOV 

RET 



AL , OFBH 
PIX_OFF 
DL # 1 
RBIT7 
AL , OFDH 
PIXJDFF 
AL, OFEH 
DX, 0C000H 
ES, DX 
ES 

[BX], AL 
DX, ODOOOH 
ES, DX 
ES 

[BX] , AL 
DX, OEOOOH 
ES, DX 

fix] , AL 
■RET rpe] 

ES, TSEGMENT.JE] 



/RESTORE RETURN ADDRESS 
; RESTORE SEGMENT E 



END PROC RESET_PIXEL; 

'•PROCEDURE INOUIRE_COLOR IS USED TO INTERFACE WITH HIGHER LEVEL ADA 
; PROGRAMS IN ORDER TO HANDLE I/O PARAMETER PASSING 



MOV 


BP, SP 




PUSH 

PUSH 


BP 

[BP+6‘ 




/PUSH X POSITION 


PUSH 


[BP+4 




; PUSH Y POSITION 


CALL 


I NO CC 


)LOR 


/GET PIXEL COLOR 


POP 


AX 




/COLOR VAL RETURNED 


POP 

MOV 


BP 

BX, [BP+21 


MOV 


[BX] , 


AX 


/RETURN PIXEL COLOR 


RET 





END PROC INOUI RE_COLOR ; 

•PROCEDURE INQ__COLOR ACCEPTS X & Y COORDINATES AS AN INPUT AND 
/RETURNS THE PIXEL COLOR CODE OF THAT LOCATION 



B1 : 



MOV 


BP, SP 




MOV 


AX, [BP+4] 




MOV 


[X POS] , AX 




POP 


[RET IC] 


/SAVE 


CALL 


ADJ SL 




CALL 


REL VID ADDR 




POP 


BX 




PUSH 


[X POS] 




CALL 


X MASK 




POP 


CX 


/READ 


PUSH 


ES 


/ SAVE 


MOV 


AX, 0C000H 




MOV 


ES, AX 




SEG 


ES 




MOV 


DL, [BX] 


; READ 


AND 


DL, CL 


/TEST 


JNZ 


B1 




JMP 


NO B 




MOV 


AX, ODOOOH 




MOV 


ES, AX 




SEG 


ES 




MOV 


DL, [BX] 


/READ 


AMD 


DL, CL 


/TEST 


JNZ 


B2 




JMP 


B NO R 





/SAVE RETURN ADDRESS 
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B2: 


MOV 


AX, 0E000H 


;RED IS SET, TEST GREEN 




MOV 


ES, AX 






SEG 


ES 






MOV 


DL, [BX] 


; READ DATA IN GREEN 3 IT PLANE 




AND 


DL, CL 


;TEST IF BIT IS SET 




JNZ 


33 






JMP 


BR NO G 




B3 : 


MOV 


AX , 0 


/COLOR IS WHITE 




JMP 


EXIT IC 




BR NO G: 


MOV 


AX, 2 


/COLOR IS MAGENTA 




JMP 


EXIT IC 




B NO R: 


MOV 


AX, 0E000H 


/BLUE IS SET, RED IS NOT, TEST GREEN 




MOV 


ES, AX 






SEG 


ES 






MOV 


DL, [BX] 


/READ DATA IN GREEN BIT PLANE 




AND 


DL, CL 






JNZ 


B4 






JMP 


B NO RG 




B4 : 


MOV 


AX, 1 


/COLOR IS CYAN 




JMP 


EXIT IC 




B NO RG: 


MOV 


AX, 3 


/COLOR IS BLUE 




JMP 


EXIT IC 




NO B: 


MOV 


AX, 0D000H 


; NO BLUE, TEST RED 




MOV 


ES, AX 






SEG 


ES 






MOV 


DL, [BX] 


/READ DATA IN RED BIT PLANE 




AND 


DL, CL 






JNZ 
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/RED IS SET, NO BLUE, TEST GREEN 




JMP 


NO BR 




B5: 


MOV 


AX, 0E000H 






MOV 


ES, AX 






SEG 


ES 






MOV 


DL, [BX] 


/READ DATA IN GREEN BIT PLANE 




AND 


DL, CL 






JNZ 


B6 






JMP 


R NO BG 




B6 : 


MOV 


AX, 4 


/COLOR IS YELLOW 




JMP 


EXIT IC 




R_NO_BG : 


MOV 


AX, 6 


/COLOR IS RED 




JMP 


EXIT IC 




N0_3R: 


MOV 


AX, 0E000H 


/NO BLUE, NO RED, TEST GREEN 




MOV 


ES, AX 






SEG 


ES 






MOV 


DL, [BX] 


/READ DATA IN GREEN BIT PLANE 




AND 


DL, CL 






JNZ 


B7 






JMP 


NO RGB 




B7 : 


MOV 


AX, 5 


/COLOR IS GREEN 




JMP 


EXIT IC 




NO RGB: 


MOV 


AX, 7 


/COLOR IS BLACK 


EXIT_IC: 


POP 


ES 


/RESTORE ES 




PUSH 


AX 






PUSH 


[RET_IC] 


/RESTORE RETURN ADDRESS 




RET 






END PROC 


INO COLOR 


• 








; PROCEDURE X MASK . 


ACCEPTS AN X COORDINATE POSITION AS INPUT 


; AND RETURNS A BIT 


MASK BASED ON THE 


X COORDINATE 


PROC X MASK; 








POP 


DX 


/SAVE RETURN ADDRESS 




POP 


AX 


/GET X POSITION 




AND 


AX, 7 






JNZ 


M3IT1 






MOV 


AX, 3 OH 






JMP 


EXIT XM 




MBIT1 : 


SUB 


AX, 1 






JNZ 


MBIT2 






MOV 


AX, 40H 
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JMP EXIT_XM 

SUB AX, 1 

JMZ MBIT3 

MOV AX, 2 OH 

JMP EXIT_XH 

SUB AX, 1 

JMZ MBIT4 

MOV AX, 10H 

JMP EXITJXM 

SUB AX, 1 

JMZ MBITS 

MOV AX , 8 

JMP EXIT_XM 

SUB AX, 1 

JMZ M3IT6 

MOV AX , 4 

JMP EXIT_XM 

SUB AX , 1 

JNZ MBIT7 

MOV AX , 2 

JMP EXIT_XM 

MOV AX , 1 

PUSH AX ; RETURN X MASK 

PUSH DX ; RESTORE RETURN ADDRESS 

RET 

END PROC XJ1ASK; 

•PROCEDURE EOUNDARY_FILL ACCEPTS AS INPUT X AND Y COORDINATES, A FILL 

; COLOR, AMD A BOUNDARY COLOR AMD PERFORMS A SCREEN FILL WITH THE 

; FILL COLOR UP TO THE SPECIFIED BOUNDARY 

PROC BOUND ARY_F ILL ; 

POP 
POP 
POP 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
CALL 
PUSH 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
RET 

END PROC BOUNDARY^FILL: 

•PROCEDURE R_FILL IS THE RECURSIVE PART OF THE BOUNDARY FILL PROCEDURE . 

; IT IS USED TO AVOID UNNECESSARY PASSING OF THE COLOR PARAMETERS WHICH 

; DO NOT CHANGE ON SUCCESSIVE RECURRSIVE CALLS. 

PROC 3_FILL; 

POP 
MOV 
MOV 
POP 
POP 
PUSH 
PUSH 
PUSH 
PUSH 
PUSH 



DX 

CX, [X_POS' 
BX, [Y POS' 
'Y_POSj 
'X_POSj 
DX 
CX 
BX 

'X_POS' 

‘Y POS' 



; SAVE RETURN ADDRESS 



;GET NEXT Y POSITION OFF STACK 
;GET NEXT X POSITION OFF STACK 



;SAVE PRESENT X POSITION 
;SAVE PRESENT Y POSITION 



RET_FILL] 

BGCOLOR] 

F_COLOR' 

L SEGMENT_FE] . ES 
AX, [COL_PLl] 

[SAV COLl_STAT] , AX 
AX, ICOL_PL2] 

[SAV COL2_STAT] , AX 
AX, TCOL_PL3] 
[SAV_COL3_STAT] , AX 
B_FILL 
[RET FILL] 

ES, Tsegment.fe] 

AX, [SAV COLl_STAT] 
[COL PLlT, AX 
AX, ISAV COL2_STAT ] 
[COL PL2J, AX 
AX, TSAV COL3_STAT] 
[COL_PL3T, AX 



MBIT2 : 

M3IT3 : 

MBIT4 : 

MBITS: 

MBIT6: 

MBIT7 : 
EXIT XM 
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TEST FC 



F_PIX s 



EXIT F: 



CALL 


INO COLOR 


POP 


AX 




MOV 


[P COLOR] , AX 


CMP 


AX, [B. 


.COLOR] 


JNZ 


TEST FC 


JMP 


EXIT F 




MOV 


AX, T?_ 


COLOR' 


CMP 


AX, [F 


‘color; 


JNZ 


F ?IX “ 




JMP 


EXIT F 




PUSH 




IX POS' 




PUSH 




"Y POS' 




CALL 


ADJ SL 




CALL 


REL VID ADDR 


PUSH 




[X POS] 


1 


PUSH 




"F COLOR] 


CALL 


COLOR 




CALL 


CIR PIXEL 


MOV 


AX, [X POS] 


ADD 


AX, 1 




PUSH 


AX 




PUSH 


[Y POS] 


CALL 


B FILL 




MOV 


AX, [X_POS] 


SUB 


AX, 1 




PUSH 


AX 




PUSH 


[Y POS] 


CALL 


B FILL 




MOV 


AX, [Y POS] 


ADD 


AX, 1 




PUSH 


[X POS] 


PUSH 


AX 




CALL 


B FILL 




MOV 


AX, [Y POS] 


SUB 


AX, 1 




PUSH 


[ X_POS 


PUSH 


AX 




CALL 


B FILL 




POP 




'Y POS " 




POP 




;x_pos; 




RET 









; COMPARE COLOR AT PRESENT LOCATION 
; WITH BOUNDARY COLOR 



; COMPARE COLOR AT PRESENT LOCATION 
; WITH FILL COLOR 



; SET LOCATION (X,Y) TO FILL COLOR 



; CALL B_FILL PASSING (X+1,Y) 



rCALL B_FILL PASSING (X-1,Y) 



;CALL B_FILL PASSING (X,Y+1) 



;CALL B_FILL PASSING (X,Y-1) 
; RESTORE POSITION (X,Y) 



END PROC B_FILL ; 

PROCEDURE AREA_FILL ACCEPTS AS INPUT AM (X,Y) POSITION AND A 
FILL COLOR. IT FILLS AN AREA WHOSE BOUNDARY IS DETERMINED BY THE 
; PRESENT COLOR OF THE INPUT (X,Y) POSITION. 

PROC AREA_FILL ; 



POP 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

POP 

POP 

POP 

PUSH 

PUSH 

CALL 

POP 

PUSH 

PUSH 

CALL 

PUSH 

MOV 

MOV 



RET_AFILL] 
SEGMEMT_FE] . ES 
AX, [ COL_PLl J 
[SAV COLl_STAT] , 

AX, TCOL_PL2] 

[SAV COL2_STAT] , 

AX, TCOL_PL3] 
SAV_COL3_STAT ] 

’ F_COLOR] 

' Y_POS " 

'X_POS 
'X_POS 
Y_POS 
INQ_COLOR 
BGCOLOR] 

'X_POS] 

’ Y_POS J 
A_FILL 
[RET AFILL] 

ES, Tsegment_fe] 

AX, [SAV_COLl_STAT ] 



; SAVE RETURN ADDRESS 



AX 

AX 

AX 

;GET FILL COLOR OFF OF STACK 



;GET COLOR OF INPUT POSITION 
; SAVE REFERENCE COLOR 



;CALL RECURSIVE FILL PROCEDURE 
; RESTORE RETURN ADDRESS 
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MOV 

MOV 

MOV 

MOV 

MOV 

RET 



[COL PL1 ] , AX 

AX , fSAV COL2_STAT] 

[COL PL2J, AX 

AX , fSAV COL3_STAT] 

[COL_PL3]\ ax 



END PROC AREA_FILL \ 



PROCEDURE A_FILL IS THE RECURSIVE PART OF THE AREA FILL PROCEDURE. 

IT IS USED TO AVOID UNNECESSARY PASSING OF THE COLOR PARAMETERS WHICH 
; DO NOT CHANGE ON SUCCESSIVE RECURRSIVE CALLS. 

PROC A_FILL; 



EXIT AF: 



POP 

MOV 

MOV 

POP 

POP 

PUSH 

PUSH 

PUSH 

PUSH 

PUSH 

CALL 

POP 

MOV 

CMP 

JMZ 

PUSH 

PUSH 

CALL 

CALL 

PUSH 

PUSH 

CALL 

CALL 

MOV 

ADD 

PUSH 

PUSH 

CALL 

MOV 

SUB 

PUSH 

PUSH. 

CALL 

MOV 

ADD 

PUSH 

PUSH 

CALL 

MOV 

SUB 

PUSH 

PUSH 

CALL 

POP 

POP 

RET 



DX 

CX, [X_POS] 
BX, [Y POSJ 

y_posT 

X_POSJ 
DX 

cx 

BX 

X_POS* 

Y_POS " 
IMQ_COLOR 
AX 

[P_COLOR] , AX 
AX , [BGCOLOR] 
EXIT_AF 
X_POS' 

Y_POS * 

ADJ_SL~ 
REL_VID_ADDR 
X_POS] 
F_COLOR] 
COLOR 
CIR_PIXEL 
AX, [X_POS] 
AX, 1 
AX 

[ Y_POS] 

A_FILL 
AX, [X_POS] 
AX, 1 
AX 

[Y_POS] 

A_FILL 
AX, [ Y_POS ] 
AX, 1 
[X POS] 

AX 

A_FILL 
AX, [ Y_POS ] 
AX, 1 
[X_JPOS] 

AX 

A_FILL 
Y_POS 
X POS' 



;SAVE RETURN ADDRESS 



;GET NEXT Y POSITION OFF STACK 
;GET NEXT X POSITION OFF STACK 



; SAVE PRESENT X 
; SAVE PRESENT Y 



POSITION 

POSITION 



; COMPARE COLOR AT PRESENT LOCATION 
; WITH AREA COLOR 



; SET LOCATION (X,Y) TO FILL COLOR 



; CALL A_FILL PASSING (X+1,Y) 



;CALL A_FILL PASSING (X-1,Y) 



;CALL A_FILL PASSING (X,Y+1) 



; CALL A_FILL PASSING (X,Y-l) 



END PROC A_FILL ; 
MAIN : 

END ADAGRAPH; 
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